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ALGOL 60 


- RELEASE NOTE 
Compiler Version 4.1C 


Runtime system Version 4.1R (3802 only) 
4.1C (pure CP/M) 


Users linking their own code procedures into the runtime system should 
note that the addresses of the necessary tables are contained in the 
list of pointers located near the start of the code. The examples given 
in the manual describe the mechanism; the exact locations of these 
tables will vary between the various versions of the runtime system. 


380Z USERS ONLY. 


If you wish to use a VDU as the outout device rather than the normal 
memory mapped VT screen then the pure CP/M version of the runtime system 
should be used (file ARUNC.COM on the disk). List the file README.DOC 
for more information. 


A number of additional test programs can be found on the distribution 
disk which make use of the graphics facilities available. 


A number of characters on the VT ROM do not print as the destfred ASCII 
code. In particular, square brackets appear as left and right arrows, . 
and braces (curly brackets) appear as one quarter and three quarters. 
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INTRODUCTION 


RML Algol is an implementation of the Algol 60 language designed 
especially for small computers. Almost all the features of Algol 60 are 
implemented together with a significant number of extensions. The system 
is essentially portable, the compiler, which is itself written in Algol, 
having been “burned in" over a period of several years on PDP8 and PDPILi 
computers. The RML Algol for the Z80 running under the CP/M operating 
system consists of a one-pass compiler and a runtime program. The 
compiler translates the Algol source program into a machine independent 
intermediate code which specifies the sequence in which a number of 


subroutines is to be obeyed and which contains arguments for these 
subroutines. 


The intermediate codes each occupy only one byte of memory 
resulting in a very compact object code. Roughly 10 bytes are required 
to store an average statement. The runtime program contains a loader for 


the compiler output and all the routines required to run the Algol 
progras. 


The compiler determines the minimum memory requirements of che 
systen. The compiler and its runtime sysctea together occupy about 12K 
bytes. Program work space and the CP/M operating system bring the total 
memory requirement to about 21K. 


The runtime system requires about 8K bytes of memory, which 
together with program, data, and CP/M requirements allows sizable 
programs to run in as litcle as 16K bytes. 


The availability of virtually the same compiler for 280, PDP11 and 
PDP8 computers makes it possible to develop programs on larger computers 
and run high level programs on microcomputers which do not in themselves 
have the I/O or memory capability to support CP/M or the compiler. 


The modular construction of the programs allows the user to 
optimise the runtime system to meet individual requirements. Ta 
particular users can add I/O handlers, assembly code routines and error 
handling without needing to become involved in the inner workings of the 
systen. . 


RML Algol 60 provides an ideal mediun for the distribution of 
precompiled software avoiding the need to supply program sources. 
Licences may be obtained from RML to redistribute software linked to the 
tTuntine system in this way. 


RESEARCH MACHINES 


Z80 ALGOL 


THE RML ALGOL LANGUAGE 


The RML Algol language is Algol 60 with a few restrictions. Sone 
of these are a result of the one-pass nature of the compiler. For 
example variables must be declared textually before use. In other 
possible ambiguous situations that a multi-pass compiler could resolve, 
this compiler may require a “clue” as to the type of object being 

‘translated. These differences are described in the following sections. 
A number of extensions to the language have been introduced. These 
include the data type BYTE ARRAY, logical and MOD operators, and a 
significant number of functions. Appendix 3 gives a summary of the 
differences from the Algol 60 Report. 


This manual describes the syntax of the language. The distribution 
disk includes a number of example programs which are described in 
appendix 4. Users new to structured programming may find it beneficial 
to refer to an introductory manual on the language and also to. the 
Algol 60 Report (see Bibliography). 


LANGUAGE KEY WORDS AND IDENTIFIERS 


Some convention is required in Algol to distinguish between the 
language key words, e.g- BEGIN, END, ELSE, etc., and identifiers. In 
textbooks this is usually done by printing the key words in bold type. 
In actual compilers some other convention is needed depending upon the 
1/0 hardware available. This compiler accepts two possible conventions. 
The first must be used where the 1/0 ts restricted to upper case 
characters only. The second may be used where both upper and lower case 
are available. Two small utilities are provided to convert between these 
conventions (see appendix 4). 


CONVENTION 1. Upper case only. All basic language words must be enclosed 
within single quote (°) marks e.g. 


SUM: =0; 

“FOR’ I:el °STEP’ 1 “°UNTIL’ MAX “DO’ 
SUM: #SUM+(X [I] -XM[I} “2; 

RMS : *SQRT (SUM/MAX) ; 


CONVENTION 2. Upper and lower case. All basic language words must be in 
upper case and all identfiers must use only lower case. The above 
example now becomes: 

sum: =0; 

FOR i:=1 STEP 1 UNTIL max DO 

sum: =sumt+(x[1) -xm[{1))°23 

rms: =sqrt (sum/max) ; ° 


The compiler decides which of che the two conventions is being 
used from the first word of the program, which must be BEGIN. Once 


selected the compiler expects the remainder of the program to continue 


.- 


in the same manner. Internally the comntler canwaree -11 1? 
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upper case (which is how they appear if the identifier tables are 
printed). The compiler only checks the firse 2 letcers of the language 
key words, then skips until a suitable terminator is found (a closing 
quote or a non upper case letter). This implies that in the second 
convention adjacent language key words must be separated e.g. 


THEN“GOTO label; and not THENGOTO label; 


One small difference to note is the representation of real numbers 
within the program. In the firse convention decimal exponentiation is 
represented by "E" e.g. X:=1.234E-5 whereas in the second case a small 
“e" must be used e.g. x:=1.234e-5. Note that when data is being read by 
the program then a capital "E" is always used. 


Users, if they so wish, may use any of the language key words for 


the names of identifiers. As an example the following declaration is 
perfectly acceptable. 


_ BEGIN INTEGER real,begin, end; 
For the sake of readability the examples given in this manual will 


for the most part use the upper/lower case conventicn. 


PRE=DECLARED IDENTIFIERS 


Certain procedure names are recognised by the compiler without 
declaration. Such identifiers may be regarded as having been declared 


in a fictitious outer block enclosing the entire program and thus ina 
scope everywhere except where masked out by a local redeclaration. These 
procedures include the input/output routines which are discussed later 
and the standard functions as defined in the Algol 60 Report. In 


addition to these there is the procedure “ioc" which takes a single 
integer parameter, e.g. 


foc(n); 


This routine serves a variety of purposes depending upon the value of n. 
These include input/output selection, format control and so on. These 
uses will be discussed in the following sections to which they apply. 
Another use of this procedure is as a simple way of linking to code 
routines within the runtime system. An inspection of the file “ALIB.ALG" 
on the distribution disk shows that the majority of the procedures 
consist ‘simply of a formal definition of their parameters with a single 
call to “ioc" as the body of the procedure. Users tay link in their own 
code routines by this same method. The details are ciscussed later. 
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STANDARD FUNCTIONS 
gin(x) x is in radians 
cos(x) — x is in radians 
arctan(x) the result is in radians in the range -pi/2 to +pi/2. 
ln(x) natural logaritha 
exp (x) e to the power x 
sqrt (x) equare root of x 
-abs (x) absolute value of x 
sign(x) delivers -1, 0, or +1 according to whether x is 
Negative, zero or positive. 
entier(x) returns the largest integer less or equal to x. 


Thus if x = 3.3 the result is 3. 

1f x © -3.3 the result is =-4.° 
Note: as the result is integer the value of x 
must lie within the valid integer range of -32768 
to 32767. 


In each of the above procedures x is called by VALUE and thus the actual 
parameter may be an expression. 


THE STRUCTURE OF AN ALGOL PROGRAM 


One of the most important features of the Algol language ia that 
ie is structured. Just as round brackets define sub-expressions within 
expressions, so the brackets BEGIN and END enclose a set of statements 
which are treated syntactically as a single statement. These bracketed 
statements are used in controlling the order of execution of the program 
and largely replace the use of labels and GOTOs since they are obeyed as 
a whole or not at all. Such a statement is known as a compound statement 
or, if it contains any declarations apart from labels, a block. 
Statements within a compound statement are separated by semicolons. 
Strictly speaking, an Algol program is one statement, because it «aust 
start with BEGIN and end with END. A complete RML Algol program can be 
represented thus 


BEGIN sl; 623 B3peccvcree BA END FINIS# 
The statements sl, s2 etc. may be of any type, including compound 
statements and blocks. The closing FINISH must be present. It is used by 


the compiler to check that there are the same aumber of BEGINs and ENDs. 


For users not familiar with che use of structured oproerammine ‘r 
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is worth explaining why the “converted consider this such en important 
feature. An examination of any Algol program reveals the modular nature 
of its structure, each block containing specific declarations of the 
variables, arrays and procedures relevant to its operation. Many users 
new to such languages are at first trritated by the need to declare 
explicitly every identifier in a program. While there may be some 
justification for such criticism when considering trivial program 
examples, the advantages become obvious as the programs become larger 
and the declarations become a small percentage of the program. The block 
in which an identifier is declared defines the “scope” of that 
identifier. Outside chat block the identifier has no meaning and 
occupies no memory resource. The system thus takes on the role of 
resource management. The allocation of memory to variables is done 
dynamically as the program is being executed. On entering a block che 
System makes available those resources defined in the declarations and 
upon exit from that block these resources are reclaimed and made 
available for other uses; thus the memory required is always minimised. 
The penalty in terms of runtime speed is negligible as most of the 
organisation is done by the compiler. The total declarations throughout 
the program may in fact be in excess of the memory of the computer 
provided it is not all in scope at once. In languages such as Fortran, 
on the other hand, the nearest one can get to this feature is to work 
out some cumbersome EQUIVALENCE statements suich probably take longer to 
define than the corresponding Algol declarations. 


Economy of memory can also be achieved using “dynamic bounds” on 
array declarations. The declared bounds can be defined in terms of 
arithmetic expressions evaluated at runtime on entering a block. These 
bounds may be different each time the block is entered. The size of the 

8 hes arrays can be chosen to be the smallest that will do the required task. 


Because memory is allocated dynamically in this way it is 
important that programs make no assumptions on entering a block about 
the initial values of variables declared therein. Between leaving a 
block and re~entering it the memory used by such vartfables may have been 
re-used for other purposes and indeed, in the case of procedures, the 
variables need not even occupy the same memory addresses each time the 
block is entered. If it is important that a particular variable should 
preserve its value between leaving and entering a block then its 
declaration should be removed to an outer block such that {t remains “in 
scope". 


The localisation of the scope of variables to that of the block in 
which they are declared also economises on the use of identifiers. The 
same names can be declared within several blocks without ambiguity as to . 
which is being referred to. This also helps when program segments from 
varidus sources are combined without leading to major problems with 
conflicting identifiers. 
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BLOCKS AND DECLARATIONS 


It has been mentioned already that variables must be declared 
before being used and that the presence of such declarations makes a 
compound statement into a block. All declarations must be placed 
‘mmediately after a BEGIN or another declaration. This does not apply to 
labels, which are set by placing an identifier terminated by a colon 
just in front of the statement to be labelled. The form of a 
declaration of a set of unsubscripted variables of the same type is: 


Type identl, ident2,-...e.- identn; 


"Type" may be REAL, INTEGER, or BOOLEAN. identl etc. represent 
the names of the identifiers. Variables may be used within the block in 
which they are declared from the point of their declaration up until the 
corresponding END. Outside this range they do not exist and are said to 
be out of scope. Procedures and labels may be used before declaration, 
but the declaration must still be such that they are in scope at the 
point they are used. Variables and switcnes must be declared before they 
are used. This is so that the compiler can distinguish them from 
functions, which may be used before declaration. This restriction is 
not made in full Algol, in which variables may te referenced before 
declaration as long as they are in scope. To each identifier used in a 
given block there must be a corresponding declaration. It follows that 
all identifiers declared in a block must be unique. The same identifiers 
may however be re-used within other blocks. Where an identifier is used 
within an inner block and also an enclosing outer block then the ioner 
declaration takes precedence for the duration of the inner block. The 
outer declaration is effectively "masked out" but its value is preserved 
and again becomes accessible on leaving the inner block. Consider the . 
following: 


BEGIN REAL x,y,p; INTEGER 1,p; 
sl; $2; 
. BEGIN REAL 2,23 8352; 
END 
END 


Statements sl and s2 cannot refer to z because it is out of scope; s3 
cannot refer to the first x because the inner declaration will take 
precedence. When s3 refers to x it will always he the one declared with 
z, but s3 may refer to y and to i. The identifier p is declared twice 
within the same block and will generate a compile time error. 
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PROGRAM LAYOUT AND STYLE 


The layout of an Algol program is almost entirely within the hands 
of the programmer. Such concepts as line number or column number have no 


meaning in Algol. Layout characters such as new Lines, Spaces, and tabs 
are generally ignored except for the following cases. 


1. Spaces are significant within strings. 


2. Language key words and double character symbols should 
contain no embedded layout characters e.g. 


BEGIN 
a>=b 
aseb 
and not: 
2 BE GIN : 
_ a> sb . i 
a: =b : 


In all other contexts the programmer is free to lay out the program as 
he wishes. The resulting text may thus range from the very elegant to 
the totally unintelligible. As intelligent layout requires no additional 
work and results in programs far easier to follow and modify, users are 
urged to develop a good layout style which should reflect che block 
structure inherent in an Algol program. Use tab stops to indent text 
with BEGIN and END pairs aligned as in the examples given in this 
manual. Labels should start on a new line to the left of the program 
statements. Statements are separated by semicolons or language key words 
and not by new line characters, so that if necessary expressions may 
extend over several lines of text. Similarly one line may contain 
several shorter statements. 


Identifiers should reflect the nature of the quantities they 
represent; spaces may be included within identifiers if it makes the 
resulting text more readable. They will be ignored by the compiler. 


Frequently used loop variables and array subscripts are often most 
conveniently represented by a single letter identifier e.g. 


end of file:=char=&°Z; 

total:=total+cern; . 
FOR {:*slower STEP incerval "INTIL upper DO cove 
volume: *height*length*width ; 


Comments should be included where they make the workings of the peogses 
more understandable and are described later. 
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DATA TYPES 


The data in the computer memory which way be manipulated by the 
program is either numeric or Boolean. Numeric values may be real or 
integer. The difference is that integers have no fractional part and 
occupy 2 bytes of memory, while real quantities are held in exponent and 
wantissa form and occupy 4 bytes. The Algol system converts numbers from 
one type to the other whenever necessary. Arithmetic expressions may 
contain a mixture of real and integer quantities. 


Numerical and Boolean data may appear within the program as 
literal values. An integer literal is one which has neither a decimal 
point nor a decimal exponent part. Examples are 3, =-200, +1234. The 
range of integers is -32768 to 32767. Real numbers contain either a 
decimal point or a decimal exponent, indicated by E or e (depending upon 
which convention is in use), or both. Examples are 0.1, <2.345, 1.2£3, 
25.7e-7. Real numbers use one byte for the exponent and three for the. 
mantissa giving a range of magnitudes from approximately E=-38 to E+38 
and between 6 and 7 decimal digits of precision. 


Boolean literals are the language key words TRUE and FALSE. 


TDENTIFIERS AND SYMBOLS 


A RML Algol program consists of a sequence of symbols which are 
printing characters on a standard teletype, terminal or its equivalent. 
Editing and layout characters are generally ignored by the compiler 
except where indicated in the following sections. The symbols are 
frequently grouped into units which the compiler treats as a single 
entity. These groups are the numeric constants just described, the 
language key words such as BEGIN and TRUE (which are strings of letters 
enclosed in single quotes or in upper case depending upon the convention 
being used), and identifiers. Only the first two letters of a language 
key word are significant. An identifier is the name given by the 
programmer to a variable, label, switch, array or procedure. There is a 
small group of Algol symbols which are made up of two characters. These 
are the assignment operator (:=), greater than or equals (>=) and less 
than or equals (<#*). Identifiers consist of any number of alphanumeric | 
characters of which the firse must bea letter. Only the first six 
characters are used, any extra ones being ignored. Letters are’in upper 
er lower case depending upon the convention being used. Examples are x, 
fred, ml, m2, abcl23, abcl234. The last two are identical in RML Algol. 


All identifiers referring to variables and switches must be 
declared before they are used so that the compiler knows to what type of 


object they refer. Labels and procedures may be used before they are 
declared because the type of the identifier can be deduced from the 


context in which it is used. 
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ARRAYS 


Subscripted variables in Algol are known as arrays. Real, integer, 
and Boolean variables may be subscripted, while byte variables must be 
subscripted. Like other variables, arrays are declared at the start of 
a block. REAL ARRAY and ARRAY are equivalent. The declaration of an 
array with one subscript has the form: 


ARRAY ident [ae:ae]; 


The ae’s represent arithmetic expressions defining the bounds of 
the subscript. Either or both bounds may be negative or zero, as long 
as the second one is not lower than the first. Real ae’s will be rounded 
towards the nearest integer. If there is more than one subscript, the 
bound pairs are separated by commas; there is no limit to the number of 
subscripts other than the amount of availible memory. If more than one 
array is to have the same bounds, the bounds need only be specified 


after che last one. One declaration may contain any number of array 
names: 


INTEGER ARRAY fa[1:30,1:5];3 
BOOLEAN ARRAY bal, ba2 [{l:n,1:3], ba3 (0:20], 
ba4, ba5 (1:2*n]; 


When arrays are declared with variable bounds care should be taken 
thet the variables have defined values. This means that they should be 
declared in an outer block and have been assigned values. This feature 
is used to partition the available storage according to the data. 


When an array is used an arithmetic expression its put in each 
subscript position. The following are possible statements, using the 
exemples above. Conditional expressiond are described later. 


fa(l,4):=7; =, 
‘fa(n,m):=1a[ta(n,2],ia[o,m]J]; ‘ 
fa(n,3]}:"IF ba2(3,1] AND ba3{n] THEN 

fa(ia(3%a,1}), LF ba3[0}] THEN 2 ELSE a) 

ELSE x; 


ARRAY MEMORY LAYOUT AND BOUND CHECKING 


The elements of an array occupy @ contiguous region of memory. In 
multi-dimensional arrays the last subscript varies most rapidly. For 
example, consider a two. dimensional array declared as 

a(min, p:q) 
The address of element a{i,j] would be given by an equation of the form 
base + size * ((1-m)*(q-p+l)+(j-p)) P 


where size is 1, 2 or 4 depending on the "ype of the array (Boolean or 


eee 
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byte, integer, or real). At runtime a check is made that the address 
computed lies within the limits allocated for the storage of the array. 
Note that for multi~dimensional arrays this does not necessarily mean 
that all subscripts lie within the declared bounds. For example, the 
element a[-1,15]) would be acceptable for an array declared as 
a[0:9,0:9). 


BYTE ARRAYS 


ears ete 


The introduction of BYTE arrays in BML Algol is an extension to 
the language as defined .in the Algol 60 Report. BYTE arrays allow for 
the efficient use of memory when string manipulation or small integer 
values are required. Within expressions BYTE array elements are treated 
as type INTEGER, and may be used in any context where an integer is 
allowed. : 


Within expressions the contents of a byte array element become the 
integer value, and the & most significant bits of the integer are set to 
zero. Thus 


iseb{n) . 


‘. 


will always yield a positive value for i in the range 0 to +255. 


When assigning to a byte array element, the expression on the 
right hand side is first converted to type integer if necessary, the 
eight least significant bits of which are then assigned to the byte 
array element, the 8 most significant bits being discarded without any 
checking. Thus 


bil] sels 
is=bf1) 


will assign to i the value +255. The only time the compiler 
distinguishes between an INTEGER ARRAY and a BYTE ARRAY is at the 
declaration. In all other contexts the two may be used interchangeably. 
In particular, a formal procedure parameter specified as type INTEGER 
ARRAY or BYTE ARRAY will accept either as the actual parameter. E.g., 


BEGIN INTEGER ARRAY 1(0:100); 
BYTE ARRAY b(0:100); 


PROCEDURE xx(a); INTEGER ARRAY a; 


BEGIN 
END ; 
xx(1)5 xx(b)j cos 
will be accepted. a : F 
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STMPLE EXPRESSIONS 


An expression is a section of program which delivers a result. The 
result may be of type REAL, INTEGER, BOOLEAN, or LABEL. 


The result of a numerical expression is real unless all the 
variables and literals within it are integer and it contains no real 
operators. The real operators are exponentiation (denoted by ~) and real 
division (/). Arithmetic expressions are evaluated with due regard to 
operator priority and from left to right where these are equal. 
Parentheses may be used to change the order of evaluation. The following 


is a list of the arithmetic and logical operators together with their 
priorities. 


operator priority meaning 


ee eT 


(highese priority) 

exponentiation 

tfultiplication 

real division 

integer division 

integer modulus a ; 3 
addition as ; 
subtraction 

logical AND 

logical EXCLUSIVE OR 

logical OR 

x (lowest priority 


ro} 
o 
~ er pee FAD Pd WH OO 


The operators MOD, MASK, DIFFER, and | are additional to those defined 
in the Algol 60 Report. 


The operators 2%, MOD, MASK, DIFFER, and ! take two integer 
operands and. deliver an integer result. The result of integer division 
(%) is truncated towards zero. The result of integer modulus (0D) its 
the remainder lost by integer division. Note that 


i MOD O | 

will always return the value zero while | ; a : 
120 or = x/0 

will give a division by zero runtime error. 


The logical operators MASK, DIFFER and ! consicer each of the two 
integer arguments as a pattern of 16 bits thus; 


3.15 =7 
3.MASK5 = | 
3 DIFFER 5 =6 4 ; 


Apart from che cases just discussed, expressions may contain any 
mixture of real and integer quantities, and conversion between types 


ll 
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will occur automatically as context dictates. For example 2 


BEGIN REAL x,y; 
INTEGER 1,4; 
Limx*y; xsex*is Lianx*ys - - 
Liex"L; 3812455 


@eeanee 


are all valid operations. 


In conversion from real to integer the result is rounded towards 
the nearest integer value. : 


Boolean expressions are made up of Boolean variables, the literals 
TRUE and FALSE, arithmetic relations, Boolean procedures, and Boolean 


operators. The Boolean operators are in order of precedence fron Beghese 
to lowest priorities. 


NOT “NOT bs is FALSE 1£ b is true and TRUE if b ts 
FALSE. 

AND b AND c: is TRUE if both b and c are TRUE 
otherwise it is FALSE. 

OR b OR ec: is TRUE if either b or c is TRUE 
(regardless of the other) otherwise it is FALSE. 

IMPLIES b IMPLIES c: is FALSE only if b is TRUE and ¢ is 


FALSE, otherwise it is TRUE. 
EQUIVALENT b EQUIVALENT c: is TRUE if b and c have the same 
; truth valve and FALSE otherwise. 


The relational operators are 


= equals 

> greater than . 

>a greater than or é¢qual 

< less than 

<= less than or equal : 
f not equals 


Relational operators are dyadic. Care should be taken with the use ag al 
and # where either argument is of type real. In this case an exact 
equals only occurs if both arguments have exactly the same bit pattern, 
which in the context of real quantities involving rounding may not be 
very meaningful. A more sensible test to make may be to check if the 
absolute difference is less than (or greater than) some small quantity 
@eBeo 


replace _— 

IF xwy THEN cooe 

with ‘ 
IF abs (x-y)<0.0001 THEN cooe 


As with arithmetic expressions, the order of evaluation say be 
changed by the use of parentheses to group Cerms. . 


12 
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Examples of Boolean expressions are: 


NOT x<5 OR byl AND (y=0 OR bv2) 
x # (y~5) 
+(x-5)72 <= 20 


where x and y are numeric variables or procedures and bvl and bv2 are 
Boolean variables or procedures. : 


Note the plus sign before the parentheses in the last example. [If 
this had been absent, the compiler would have assumed that the bracket 
enclosed a Boolean expression and would have indicated an error on 
finding the closing brackec instead of the expected relational operator. 
In the first example the brackets do enclose a Boolean expression. 
(This way of forcing the compiler to recognise a bracketed arithmetic 
expression within a Boolean expression is not necessary in full 
Algol 60). The RML Algol compiler can deal with expressions such as 
zu-5>220 correctly because x must be numeric. Similarly, in the second 
example, the expression after the # must be numeric, so the comiler 


does not need a plus sign. In this case the brackets are not essential 
either. ; 


STRINGS AND CHARACTER LITERALS 


A string in Algol consists of a sequence of characters enclosed 
within double quotes e.g. ; 


text(1,"Hello Dolly”); 


All characters within the quotes with an ASCII value less than 32 are 
ignored. This includes carriage return, tab, and control characters but 
space is permitted. In order that these and other characters may be 
included within strings the following convention is used. The characters 
*& and * have special significance and are always considered in 
conjunction with the character following. 


CONTROL CHARACTERS 
“x 


will insert CONTROL-X ineo the string. In seneral ~ has the effect of 


stripping off all but the 5 least significant bits of the following 
character. d 


LAYOUT CHARACTERS 


co 
or 


aN Inserts carriage return/linefeed into string. 
bal Inserts carriage return. 
aL Inserts linefeed. ; 
*§ Inserts space (a literal space is also allowed). 
Tt Inserts tab. 
ap Inserts new page (fornfeed). 
13 
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All other characters following * are taken literally; in particular, 


aa Inserts * 
a” Inserts ~ 
i Inserts * 


Yor example 
text(l,"An example *"STRING#" 
*Smight look lik 
e this*Nx**2+y4*20") 4 

will print on the console as: 


An example "STRING" might look like this 
X72+Y720 


The intecwal representation of a string ts a sertes of charactecs stored 
in sequential bytes terminated by a zero waits: 


CHARACTER LITERALS 


The literal value of any character may be found using an ampersand °&° 
character followed immediately by the required character. For example te 
convert a character digit to a number between 0 and 9 we have 
Ls=chin(1)-803 
or to output an X then 
chout(1,4X)3 


- * 


The convention described above involving * and “ also applies, so to 
check for end of file (CONTROL-=Z), ; 


i:echin(dev) ; 
IF 196°Z THEN 2.06 


or to check for a carrfage return character. 
IF 1*&*C THEN ccce 


The two exceptions are &*N and &*" which will lead to the wrong result. 
The first aenerenes 2 characters and the second is written &".. 


Character literals are of type integer. 
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ASSIGNMENT STATEMENTS 


AP APRESS ALA OD DO CUED 


The general form ts: 
variable:=expression 


The variable on the left hand side is assigned the value of the 
expression on che right. Note that in Algol the assignment operator is 
the double character symbol (:=) and not the equal sign (#) which is a 
relational operator. Multiple assignments are not implemented in this 
version of Algol. If the variable is Boolean the expression must also 
be Boolean. If the variable is numeric the expression may deliver an 
‘ integer or a real result; it will be converted to the type of the 


variabie if necessary, real numbers being rounded towards the nearest 
integer. Examples: 


1 s= 3+]; 
x 3= IF be THEN jZ%5 ELSE 36.75; 
bv := 1#7 


CONDITIONAL EXPRESS [CuiS 


SES BD DSS Clee ee 


" : A conditional expression is one that takes one of several values 
depending on the result of one or more Boolean expressions. The general 
form is: 


IF be THEN se ELSE e 


be stands for Boolean expression (it may itself be conditional), se 
stands for simple expression, which must not be conditional, and e for 
any expression. Because e may also be conditional the form can be 
extended: 

IF be THEN se ELSE IF be THEN se ELSE e 


The expressions must all be numeric, all Boolean or all designational 


(these are described later). A conditional expression is made 
unconditional by enclosing it in round brackets. The following is legal 
Algol: 


IF IF bvl THEN x#3 ELSE y=0 THEN 
(IF bv2 THEN 25 ELSE 30) ELSE x+y 


The first be is conditional. The ae (arithmetic expression) within 
brackets is conditional and would not be allowed in that context without 
its brackets. Te is a general rule of Algol that IF muse not follow 
immediately after THEN. This is because it can result in ambiguous 
code. Examples of conditional expressions are:: 
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a:°IF a>0 THEN ata ELSE 0; 
large:*IF g>b THEN a ELSE b; 
seIF a>=b AND a>=c THEN a 
ELSE IF b>=a AND b>= THEN b ELSE ¢; 
a:eIF IF x>Q THEN y>0 ELSE y<50 THEN 3x ELSE 0; 


CONDITIONAL STATEMENTS 


These have the same form as conditional expressions, except that 
ic is not necessary for there to be an ELSE part. There are consequently 
two forms of conditional statement: 


IF be THEN sl 
IF be THEN sl ELSE s2 


sl must not be conditional but s2 may be. In the first case no 
statements are obeyed if the be delivers a FALSE result. In the second 
case sl] is obeyed if the result is TRUE otherwise s2 is obeyed. As 82 
may be conditional this form can be extended indefinitely: 


IF bel THEN #1 ELSE IF be2 THEN #2 ELSE 83 
Just as expressions sre made unconditional by enclosing them in 
round brackets, so statements are unconditional if they are enclosed in 
the brackets BEGIN and END. Examples of conditional statements are: 
IF a>0 THEN sum:=sumta; 
I¥ char~&“2 THEN close(dev); 


TF samp>max THEN wax:=samp : 
ELSE IF samp<min THEN nin:=samp;3 


IP a>b AND cod THEN 
BEGIN ccccce . a 
END ELSE 

BEGIN ccesce 

END; . 


FOR STATEMENTS 


A FOR statement allows the repeated execution of a statement with 
different values of a variable known as the controlled variable. The 
general form is: . 


FOR variable:=fle,fle,......fle DO al 


al may be conditional. The controlled variable must be real or integer 
and not subseripted. (In full Algol 60 subscripted variables are 
allowed.) fle stands for "for list element"... Lists containing only one 
element are allowed. There are three types of for lise element (1) en 


a 
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arithmetic expression (2) a STEP element and (3) a WHILE elenent. 


A STEP element has the form "ae STEP ae2 UNTIL ae3". After each 
execution of the controlled stacement the value ae2 is added tu the 


variable. Before each execution of sl, including the first, the variable 
is tested against aej. If it is greater than ae} and ae2 is positive, or 
less than ae3 when ae2 is negative, then the element is said to be 
exhausted. [t should be noted that ae2 and ae3 are evaluated each time 


they are used, so that the value may be changed by the execution of the 
controlled statement. A STEP element may result in the statement not 


being executed at all, for example if ae>ae3 and ae2>0. 


A WHILE element has the form "ae WHILE be”. On each iteration the 
arithmetic expression is evaluated and assigned to the variable. Then 
the Boolean expression is evaluated and if the result is TRUE the 


statement is executed, otherwise the element is exhausted. Examples of 
FOR statements are: 


FOR i:emin STEP 1 UNTIL max DO sum:=sumts (iJ; 

FOR t:#1 STEP i UNTIL 1024 DO .... 

FOR i:-l, 3, 99, j» -5, Il bo evee 

FOR x:el, x*2 WHILF x~°025 DO .... 

FOR i:=#100 STEP -1 UNTIL ~-100 DO .... 

FOR x:#0.1, 1, x*5 WHILE x<1000, 20 STEP <5 UNTIL O DO.. 


FOR looss can be nested as deeply as desired. For example, 


FOR 1:<1 STEP 1 UNTIL max DO fiat 
FOR j:=1 STEP 1 UNTIL 1 DO a:=atb[1,4]72; 


Matrix multiplication might look like: 


FOR 1:1 STEP 1 UNTIL m DO { 

FOR j:=1 STEP 1 UNTIL n DO ane 

BEGIN x:=0; ; 
FOR k:=1 STEP 1 UNTIL p DO x:=x+e(1,k]*b(k, Jj]; 
e{i,j]s=x; 

END ; 


The body of the FOR loop cay be a dummy statement, for example to skip 
to the start of a new line. 

FOR it:=chin(dev) WHILE 1#*C DO ; 
The loop variable may also be a dumny; 


FOR i1:=0 WHILE test DO body; 


In this case body may be a procedure or block which sets a Boolean 
' wariable test, or test could itself be a Boolean procedure. ; 


FOR i:=bodyl WHILE test DO body2 ; 


In this example body] could be an integer or real procedure, test a 
Boolean procedure, and body2 a procedure or block, giving several 
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possibilities for loop construction. 


A FOR loop is not a simple statement and cannot be called 
following the THEN part of a conditional statement unless enclosed 
within a BEGIN and END. It may however follow the ELSE clause without 
needing an enclosing BEGIN and END. 


DUMMY STATEMENTS 


A dummy statement is one in which there is nothing before the 
terminating END, ELSE or semicolon. nee are: . 


IF be THEN ELSE ; 
PROCEDURE dummy; ; sie 


. tee . 


COMMENTS 


= . 
") tne ° 


RML Algol ellows three types of comment. Any symbols eppearing 
efter an END until the first occurrence of semicolon, FINISH, END, or 
ELSE are ignored. These are known as END comments. Eg. 


END this is ignored; 
END so is this ELSE 
END and this also FINISH 


The other form is . 
COMMENT any sequence not containing semicolon; 


This form is allowed after a semicolon or after a BECIN. Within comments 
single quotes mst be matched. An alternative to using -the key word 
COMMENT is to enclose text within braces. This is an extension to the 
Algol 60 Report. Such comments may contain embedded matching braces, or 


embedded unmatched single quotes. This form of comment may be used 
anywhere that COMMENT may be used. E.g. : 


{this {comment} is ignored) 


Pull Algol 60 also allows an additional type of comment within procedure 
calla and declarations. 
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LABELS, SWITCHES AND GOTO STATEMENTS 


Any statement may be labelled by preceding it with an identifier 
and a colon. The scope of the label is the block in which it occurs. 
Program control is transferred to a labelled statement by a GOTO 
statement. 


BEGIN REAL x; sl; 82; GOTO lab; s3; 
lab: s4 
END 


The following is not allowed because the label is not in scope: 


GOTO lab; 

BEGIN REAL x; 381; 823 
lab: s3 

END; 


Labels in an outer block may however be accessed from within an inner 
block e.g. j 
BEGIN REAL q; 
lab: sl; s2; 

BEGIN REAL y; 

83; GOTO lab; 

END 

END 


It should be noted that a compound statement does not become a block 
beceuse there is a labelled statement within it. The second example 
would have been allowed but for the declaration of x. For the same 
reason labels in different compound statements but within the same block 
must have different names. 


A switch is a list of labels declared at the start of a block. All 
the labels must be within scope at the declaration. 


SWITCH s:#lab!,lab2,1ab3; 


The simplest use of a switch is in a GOTO statement, GOTO s{ae}. The ae 
is evaluated and is used as an index to the list of labels in the 
declaration. If, for example, the ae has the value 2 the effect of the 
statement is the same as GOTO lab2. If the value of ae is less than 1 


or greater than the number of labels in the declaration then the effect 
is that the statement is treated as a dummy statement. Example: 


BEGIN SWITCH sw: =casel,case2,case3; 
try: text(1,"casenumber="); 
GOTO sw(chin(1)=&0]; 
text(1,"*Nillegal value"); GOTO try; ‘ 
casel: .ec- . 
Case2: sess 
Case3: sees 
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DESIGNATIONAL EXPRESSIONS 


Designational expressions are like arithmetic or Boolean 
expressions. In a designational expression the elements may be labels or 
switch elements. The full definition of a GOTO statement is: 


GOTO de 
hace de scands for designational ex-ression. An example: 

GOTO IF x=Q THEN labl ELSE IP b THEN s[i+3} ELSE lab2 
Designational expressions may also result in the address of a procedure, 


as will be described in the section on procedure parameters. Thi ‘s an 


extension of Algol 60, in which designational expressions ai Ay 
allowed for labels. ; 


PROCEDURES 


A procedure is a statement which is declared at the start of a 
block, but it is not executed when the block is en .ered. It is given an 
identifier and the appearance of its name causes the statement to be 
executed. The simplest type of procedure has no parameters and does not 
deliver a result. 


BEGIN oe 
PROCEDURE dothis; s; 

sl; 62; dothis; s3; dothis 
END | 


s is the statement which is executed when dothis appears in the progras. 
It is known as the body of the procedure. s is treated as a block even 
if ic has the form of a compound statement or a single statement. This 


is to prevent GOTO statements from leading into a procedure which is not 
active. 


A procedure may deliver a result of type REAL, INTEGER, or 
BOOLEAN. Such a procedure is known as a “type procedure" or function. 
Its name can then be used in expressions, which will cause the procedure 
to be executed and the result to be used in evaluating the expression. 
Within the procedure body the value which will be returned is set by 
assigning it to the name of the procedure. Such an assignment statement 
may occur anywhere within the procedure body and there can be any number 
of them. Execution of the procedure continues until either the end is 
reached or a GOTO leads out of it. If the name of the procedure occurs 
within the procedure body itself, except on the left of an assignment as 
just explained, then che procedure will call itself and is said to-be 
recursive. The following example illustrates several points: 


ee 
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BEGIN INTEGER i; 
INTEGER PROCEDURE 4; 
IF 1<0O THEN GOTO nogood 
ELSE IF it#l THEN j:=0 ELSE 
BEGIN 1:=i-1; 
e gr=jrt 
END procedure j; 
LselO; Ls~43 
nogood: 
END 
FINISH 


The procedure refers to variable 1 which ts declared in the main program 
in the same block as the procedure. The declaration of 1 must come first 
or the compiler would have assumed that it refered to an as yet 
undeclared procedure of type Boolean (lines 3 and 4) or integer (line 
6)» Line 5 would have failed because the identifier to the left of := 
must be already declared. There must always be some condition which 
causes a recursive procedure to deliver a result or exit without 
recursing, as on lines 3 and 4. If this had not been done, or 1f i had 
not been decremented on line 5, the procedure would have called itself 
until the available storage was used up. The label nogood is attached to 
a dummy statement. Note also that the body of the procedure does not 


have to be enclosed by BEGIN and END; in this case it is a conditional 
statement. 


PROCEDURES WITH PARAMETERS 


The action of a procedure can be made to depend upon data supplied 
to it through a list of parameters at the time it is called. The | 
procedure declaration contains a list of formal parameters. These are 
the names which are used within the body of the procedure. The type of 
each formal parameter is given in a specification, which looks rather 
like a set of unsubscripted variable declarations. The list of formal 
parameters is enclosed in round brackets and is placed immediately after 
the name of the procedure. The identifiers are separated by commas. 
Only the names are given, not subscripts or procedure parameters. For 
example, 


REAL PROCEDURE p(x,y,a,r,lab); 
VALUE y; REAL x,y}; 

REAL ARRAY a; 

REAL PROCEDURE r; 

LABEL lab; 


In fall Algol 60 a more complicated type of parameter separator (the 
“fae comma") is also allowed. 
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NUMERIC AND BOOLEAN PARAMETERS BY VALUE 


OED CD 


This is the simplest type of parameter. When the procedure is 
called the actual parameters are evaluated and the value is passed to 
the procedure. Within the procedure body a parameter called by value 
acts in every way like a variable declared within the procedure, except 
that it is assigned an initial value when the procedure is entered. The 
value may be changed within the procedure but the new value is not 
accessible once the procedure has finished. 


PROCEDURE p(i,x,b); VALUE x,b,!3 

REAL x; BOOLEAN b; INTEGER i; 

BEGIN IF b THEN a:=x+l ELSE a:ex-i3 
x2s2%13 as=x+i1; 

END 


"a" 1s a variable previously declared outside the procedure. Note that 
the VALUE specification must come before the part specifying the types 
of the parameters. The RML Algol system converts between INTECER and 
REAL if the types of the actual and forma: parameters are not the same, 
No other type conversions are allowed. A possible call of this 
procedure is: ‘ 


p(5.32, 2.5%y, TRUE AND 2>0) 
where x and z are numeric variables. | 


Note the TRUE before the relation 2>0. Tf this had not been 
present the compiler would not have known thet it should be compiling a ~ 
Boolean expression. All actual parameters which are Boolean values nust 
start with a Boolean identifier, or one of the symbols NOT, TRUE or 
FALSE. For the same reason any identifier which is the first item of an 
actual parameter must have been declared, so that the compiler knows 
what type of expression to evaluate. It is never necessary to enclose 
an actual parameter in brackets. These rules are needed because the 
RML Algol compiler makes only one pass through the source program. They 
are not necessary in full Algol 60. 


VARIABLES CALLED BY NAME 


Any formal parameter which is not specified to be VALUE is said 
to be called by NAME. Instead of a value being passed to the 
procecedure, the address of the variable is transmitted. It follows 
that the actual parameter must be the name of a variable of the correct 
type. (In full Algol 60 an expression is allowed and the address of a 
routine to evaluate it is transmitted). When a variable called by name 
is assigned to within the procedure body the variable specified in the 
call is changed. Thus, variables called by name do not act like locally 
declared variables. The formal name stands for the actual name used in 
the call. The actual parameter is brought within the scope of the 

' procedure body. 
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In RML Algol, array parameters must be called by name. (The full 
Algol 60 call of array names by value involves making a local copy of 
the whole array.) The actual parameter is the name of the array, without 
subscripts. Within the procedure body the formal array name is used with 
subscripts. There must be the same number of subscripts as in the 
original declaration of che array whose name was used as a parameter. of 
Atray elements (an array name followed by subscripts) may be used within 
or as an actual parameter, but only when the formal parameter is by 
value. This compiler accepts the use of BYTE ARRAY and INTEGER ARRAY 
interchangeably in procedure calls. (See the section on byte arrays). 


Objects called by name may be passed on from procedure to 
procedure through the parameter list. Unsubscripted variables called by 


name may be used as che controlled variable in a FOR statement. 


BEGIN ARRAY ar(1:20)}; 
REAL x; INTEGER 1; 


REAL PROCEDURE rp; rp:#i°2+2; 


PROCEDURE p(a,k,2); VALUE a; 
REAL a; INTEGER &; ARRAY 23 
FOR k:=1,2 DO 2(k]:=rp*a; 


ar(l):=10; 
p(ar(l],1,ar); 


FINISH 


When procedure p is called, the value of the parameter a is initialised 
to be 10.0 and k within the procedure becomes equivalent to i in the 
main program. When rp is called for the first time i has the value | so 
the result of the expression which is assigned to rp is 3.0. 2z{1] is 
assigned the value 3.0*10.9, which means chat ar[1l] becomes 30.0. Next 
time, when i=2, the value of rp is 6.0 but a still has the value 10.0 so 
the effect of the statement is ar[2]:=60.0. 


STRING AND SWITCH PROCEDURE PARAMETERS 


When the formal parameter is a string, the actual parameter may be 
either a string of characters enclosed in double quoce marks er, if the , 
call is within a procedure having a string parameter, the name of such a 
string. String parameters can only be used as actual parameters in 
further procedure calls, so it follows that che information in the 
string (as opposed to che address of the string, which is the 
information transmitted to the called procedure) can de used only by 
machine code called from within the procedure. This may be done ody 
using the pre-declared procedure text(device,string), string handling 
procedures in ALIB.ALG or some machine code written by the user and 
activated by an ioc call. Eqg. 
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PROCEDURE moan(message, num); 
VALUE num; INTEGER num; STRING message; 
BEGIN text(l,"*NError at line "); 


write(l,num); text(1,message); 
END; 


The use of switch parameters is straightforward. The actual 
parameter is the name of a switch. When this name is used within the 
procedure body (with a subscript) the effect is as if it had been used 
in the block in which the switch was declared. However in RML Algol (but 
not in full Algol 60), if the execution of a parametric switch leads to 
within a procedure which has been called recursively, then the return 


is to the most recent call of the recursive procedure. If this 
consideration is important the RML Algol programmer should use several 
label parameters instead of a switch. RML Algol finds the correct 


incarnation of a recursive procedure if it is jumped into through a 
label parameter. A procedure has been called recursively if there is 
more than one call in force. If A calls B, B calls C, and C calls A then 


A has been used recursively. In practice this restriction is unlikely to 
prove to be a limitation. 


LABELS AND PROCEDURES AS PARAMETERS 


The treatment of parameters of type LABEL, PROCEDURE, REAL 
PROCEDURE, INTEGER PROCEDURE and BOOLEAN PROCEDURE is similar. The 
actual parameter is a designational expression which in BML Algol (but 
mot in full Algol 60) must be preceded by a type specification. This 
requirement is included so that the one-pass RML Algol compiler may 
allow as yet undeclared procedures and labels to be used in procedure 
actual parameters. As with variables called by name, arrays, and 
switches, it is the address of the label or procedure which is passed to 
the procedure being called. The actual parameter must be in scope at 
the point of call but need not be within the scope of the called 
procedure; its use as a parameter effectively brings it within scope. If 
a procedure body contains a label declared with the same identifier as a 
formal parameter of the procedure, then the formal parameter will take 
precedence until after the declaration of the label. (In full Algol 60 
the block structure always determines the order of precedence). 


The pre-declared functions and input/output names cannot be used 
as procedure parameters, where the formal parameter is a procedure. A 
dummy procedure which calls the pre-declared one must be used. This is 
because the pre-declared procedures are not treated in the same way as 
those declared by the user, in order to shorten compiled programs and to 
increase the speed of execution. (In full Algol 60 the pre-declared 
procedure names can be used in this way). The pre-declared procedures 
can of course be used in expressions where the formal parameter is- a 
value parameter. sin(cos(3)), for example, is allowed. 


The RML Algol compiler does not differenciate between name and 
value calls of parameters which are switches, strings, labels, and 
procedures. Where the actual parameter is a designational expressiorn 
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(only allowed for labels and procedure types) the value is calculated on 
procedure entry only, and not each time the parameter is used within the 
procedure body. The calls of ail these parameters are therefore by 
value, although the compiler does not force the user co specify this. 


To illustrate these points, suppose that two procedures have the 
following headings:~ 


PROCEDURE p(s,lab,rp,st); 
SWITCH s; STRING st; LABEL lab; 
REAL PROCEDURE rp; 


REAL PROCEDURE x(y,st); VALUE y; 
REAL y; STRING sc; 


A possible call {s: 


p(sw, LABEL IF be THEN labl ELSE lab2, 
REAL PROCEDURE x ,"abc™) 


A designational expression has been used as an actual parareter of type 


LABEL. As with arrays and switches only the name of the real procedure 
is used as a parameter. The parameters of the parametric procedure are 
included when the procedure {s actually called, and not otherwise. a 
possible call of x winin the body if p is: 


rp(rp(3,"DEF") ,st) 


SUMMARY OF POINTS ON PROCEDURES 


Oa entering a procedure the memory required is allocated 
dynamically according to the declarations. It follows that procedures 
are intrinsically recursive in nature, the limit on the depth of 
recursion being set by the available memory. 


The body of a procedure is a "statement"; this may range from a 
simple (even dunmy) statement to a compound statement or block. Within 
such a block there may of course be further procedure declarations, so 
that the following is a valid structure. 


PROCEDURE ton; 


BEGIN 
PROCEDURE dick; 
BEGIN 
: PROCEDURE harry; ae 
BEGIN 
B13 cece 

END; 
$23 eeoe 

END; 

83; ose. 
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The scope of these procedures follows the normal rules of scoping, so 
that statements s} and s2 may refer to tom, dick or harry; statement 83 
may refer to tom and dick but not harry. | 


Statements within a procedure may make reference to any variable 
that is “in scope", not just those passed through the parameter list. In 
Fortran a COMMON statement would be necessary. It is also possible to 


jump out of a procedure by means of a@ GOTO statement to any label that 
is within scope. 


There 1s a problem regarding the scoping of procedures in the case 
where the user declares a procedure of the same name as one of the 


pre-declared ones. This results from the fact that these pre-declared 
functions are compiled differently from those declared by the user, to 
make them faster and to economise on memory. 


BEGIN INTEGER i; 


PROCEDURE abc; 
BEGIN oeos 
z:=sin(y); 


VALUE x; REAL xs 


eeee 


END 
FINTS# 


According to the Algol 60 Report the scope of the two procedures "abc" 
and "sin™ is the block in which they are declared. The statement 
“z:sesin(y)" in the first procedure is referring to the second. procedure 
in the block. In this compiler however the statement will generate code 
corresponding to a built-in procedure identifier that it already knows 
about. No error message is given. The problem could be avoided in this 
case by simply reversing the order of the two procedures, or better. 
still changing the name so that no ambiguity can exist. There is no 
problem with procedures having names different from the built-in ones. 
As a general rule all procedure names are best kept unique amongst 
themselves and also from the variables. 
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INPUT/OUTPUT PROCEDURES 


PEASE 


In Algol the exact form of Input/Output is noe strictly defined 
bue left up to the implementer to cake best use of whatever facilities 
are available. Input/Output takes place through a series of procedures 
built into the runtime system. Input/Output is device independent. All 
Inpuec/OQutput is associated with a stream or device number. In the case 
of non file-structured devices such as the console and printer 
Input/Output can be performed by simply choosing the appropriate stream 
number. These are summarised in appendix 2. In the case of disk files 
however some pre~dialogue is necessary to open or create a specified 
named file. In this case the corresponding stream numbers are allocated 
dynamically by the system. The procedures to perform this dialogue are 
described in a following section. In the case of disk files we also have 
the choice of serial or random access. The latter will be dealt with 
later. P 


SERIAL INPUT/OUTFUT 
In all of the pre-declared 1/0 procedures the first parameter is the 
stream number denoted by dev. The name val indicates a REAL variable and 
ival an INTEGER variable. As the formal parameters are called by VALUE 
the actual parameters may contain expressions; the system will convert 
between integer and real values if necessary. 


PROCEDURE skip(dev); 


Outputs a carriage return/linefeed to dev. 


INTEGER PROCEDURE chin(dev); 


Read the next character from dev. The result of the procedure is 


the value of the character. In the case of disk input the 
character CONTROL-Z is returned at the end of file. 


REAL PROCEDURE read(dev); 


or 
‘REAL PROCEDURE read (dev, label); 


Read a floating point number or integer number from dev. The 
number is in free format, and is terminated by any ‘character 
which cannot be part of a number. Decimal exponentiation is 
indicated by E. Spaces, tabs and blank lines preceding the 
number are ignored bue other characters will give an error. A 
Space will terminate the number except between the E and the 
exponent field. Integers may be read without rounding errors 
provided they appear as valid incegers in the input i.e without 
decimal point or exponent parts. To allow the possibility of 
reading a file of unkxncewn leagth, the second form given above 
may be used. In the event of passing the end of file control is 
passed to the label. The name is not preceded by the LABEL 
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indication as the compiler knows that the second parameter oust 
be a label or a designational expression. End of file 1s a legal 
terminator; the jump will not happen unless another read is 
done. If the optional label is not given a runtime error occurs 
if end of file is passed. Examples of valid number formats: are: 


0. 123 +1.23E =3 -123 


The. read routine will also accept the following although the 
output routines never generate such formats: 


E-3 = «123 -123. 
It may be desirable to read a data source containing text 
comments. The read routine can be instructed to ignore any 


character preceding the number which cannot be part of the 
number by the call: 


1Loc(18); 


A consequence of the use of this mode of reading data is that 
numbers of the fors 


E-6 or .45 


are no longer valid. The leading "E" or "." is regarded «as 
comment; the actual numbers read in this case would be ~-6 and 
45. To return to the default mode where comments are not 
permitted call: 


foc (19); 


PROCEDURE text (dev,"string™); 
Output a string to dev. See the section on. strings regarding 
interpretation of format and control characters. The string may 
also be a string parameter of the procedure in which text is 


called, in which case the actual parameter is the string 
identifier e.g. ¢ 


PROCEDURE message(s); STRING 83; 
BEGIN text(1,s);3 eoosese e 


PROCEDURE chout(dev,ival); 
Outputs a single byte to dev. If a character is to be output, 
dts ASCII value must be used. This can be found by using the 
character literal facility. For example. 
chout(1,&X); 


will print X on the terminal. 


———— 
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PROCEDURE write(dev,ival); 


or 
PROCEDURE write(dev,ival, radix); 


Prints ival as an integer on dev. The default radix is decinal. 
Non-significant characters are not printed. If formatted print 
is required use rwrite. Output in octal or hexadecimal is 
possible by including the optional third parameter. 


radix=0 for decimal 
radix=1 for octal 
radix=2 for hexadecimal 


Any other value for radix will lead to a runtime error. 


PROCEDURE rwrite(dev,val,a,b); 


or 
PROCEDURE rwrite(dev,val); 


Floating point output to dev. val is the value to output, a and 
b define the format such that: 

a= total number of characters including sign and decimal point. 
be number of digits after the decimal point. 

If b is zero then we have formatted integer output. If the value 
of a is inconsistent with that of b some large value will be 
substituted. 

If a=Q then exponent format is used with b decimal digits. 


If both a and b are zero or if they are omitted altogether as in 
the above example then the program defaults to exponent format 
with 6 decimal digits. 


Various aspects of the output formatting can be controlled by. 
calls to the predeclared procedure foc. These calis have the effect of 
setting flags within the runtime system which remain in effect until 
some further: call is made to change then. These calls to foc can be 
considered in 3 groups. The first of each group is the default state in 
effect when the program starts. The various calls within each group are 
mutually exclusive. , 


The firse group is concerned with what action is to be taken if 
the value to be output is too large to be accomodated by the specified 
format. 


ioc (6) 


The routine first attempts to accomodate the number by moving 
along the decimal point while maintaining the total field width 
constant. If this fails the routine will use exponent format 
provided the field width can be maintained else a row of 
asterisks "**#4*k" is printed indicating an out of range number. 
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toc(7) 


No format changes whatsoever are allowed. If the number cannot 
be accomodated then a row of asterisks is printed. 


foc (8) 


No error print allowed. When this ioc call is in effect the 
error print indicated by a row of asterisks is never used. 
Format changes are allowed; if necessary exponent print will be 
used regardless of the field width specified. 


The second group is concerned with the representation of spaces 
within the output format. 


ioc (9) 


Set the “default space character" to space (ASCII 32). Leading 
zeros are printed as spaces. : 


foc (10) 


Set the “default space character" to null (ASCII 0). Leading 
zeros will be suppressed. The number is J<ft justified. (The 
null character is trapped by the routine and not actually sent 


to the output stream). 


The third group is concerned with the representation of positive 
numbers. 


foe(11) 


Use the current default space character (see group 2 above) 
where a positive sign is expected. Initially the default space 
character is space. If foc(11) is called after itoc(l0) the 
result is to suppress the character slot reserved to indicate a 
positive result. 


doc(12) oe . } 

Print "+" to indicate a positive number. 
NOTE: calls to rwrite and write are terminated by nrinting the "default 
space character" (see group 2 above). This is initially set to space 


which serves as a terminator to separate output such that it can be 
reread by the read routine. 
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INPUT OUTPUT SELECTION 


SD CNS ES A eee 


The RML Algol system allows the user the ability to select 
input/output files or devices from within .che program or from the 
console keyboard. For this purpose there exists a buffer into which 1/0 
selections are placed through 1/0 stream number 7, or through a number 
of calls to foc. The basic sequence of events consists of: 


1. Place an 1/0 selection string into the buffer. 

2. Call a command string interpreter to read the contents 
of the buffer and copy the string into an “input list” 
and/or "output list" as appropriate. 

3. A call of predeclared procedures “input” or “output” 
reads the next entry in the “input list™ or "output 
list” and returns to the program the appropriate strean 
number, having opened or created any necessary files. 


Input from stream 7 is buffered and only made available to the 
program when a carriage return character is encered. Incorrece 
characters can be removed using the rubout key which on the RML 3802 is 
done rather wore elegantly than on the pure CP/M version. There are two 
pointers associated with stream 7, one with input and the other output. 
As characters are entered or read from the buffer the appropriate 
pofater is advanced by 1. These pointers may be reset using the 
following foc calls. 


Loe (0) 


Reset the input pointer. The next call of chin(7) will return 
the value of the first character in the buffer. 


‘foc(l) 


Reset output pointer and write a string terminator into the 
first buffer position. The next call of chout(7,char) will place 
the value of char into the firse position of the buffer aad 
advance the position of the string terminator. Note that 
following the use of ioc(2) through 1oc(5) described below, 
before reading from stream 7 the programmer should issue both an 
foc(0) and an toc(i) to reset the pointer and wipe out the 
current buffer contents. : 


The following foc calls allow input or output lists to be entered. 


. toc 2) 


This produces a prompt on the console of the form: 
OUT=IN? 


The user then enters a command string of the general form: 


outputlist=inputlist <cr> 
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When the carriage return <cr> character is given to terminate 
the command line the command string interpreter is called. 
Every character up to the separating equal sign (or carriage 
return if no equal sign present) is copied and stored as the 
current “output list" and everything after the equal sign is 
copied and stored as the current "input list™. A pointer is 
associated with each of these lists and if a new input or output 
list entry is found then the corresponding pointer is reset to 


the start of that list. The detailed form of these lists is 
described later. 


toc (3) 


This is similar to ioc(2) bue the text is taken directly from 
the contents of the buffer without any user prompt. A typical 
calling sequence to set up an input/output list might be: 


foc(l); text(7,"outputlist=inputlise™); ioc(3); 


toc (4); 


This produces a prompt on the console of the form: 


INPUT= 


The user then enters a command string of the general form: 


inputlise <cr> 


This string then becomes the current “input list", the output 
list remaining unchanged. 


foc (5) 


This is similar to ioc(4) but the text is taken directly fro) 
the contents of the buffer without any user prompt. A typical 
calling sequence might be: 


doc(1); text(7,"inputlist™); 1oc(5); 


Note: A call of toc(3) or foc(5) leaves the contents of the buffer 
unaffected. The same string may if desired be parsed twice to set up 
both input and output files of the same names. This is in fact done 
within the compiler to select its input and output. 


The general form of the input and output lists consists of a sequence of 
one or more device or file specifications separated by commas e.g. 


CON: ,A:OUT1, ,LST:=DATA.DAT (B] ,RDR: 


In the above example 4 output channels and 2 input channels ‘are 
specified. A call of the pre-declared procedures input or output 
(decribed later) will scan the appropriate list from the current 
position up to the next occurrence of a comma or end of list indicator. 
A stream number will be returned corresponding to the entry found. 


pra te 
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A list of the device mnenonics used and their corresponding strean 
numbers is given in appendix 2. 


A CP/M file specification is of the general forn: 


DRIVE: FILENAME. EXT 
The characters recognised within file names are letters, digits, °$’ and 
“2°; the latter should be reserved for specifying ambiguous file names. 
Lower case letters are converted to upper case as per the normal CP/* 


convention. All characters less than space (ASCII 0 to 32) are ignored 
within I/O lists. 


The FILENAME consists of -from ! to 8 characters. The file 
extension ".EXT" if present consists of from 1 to 3 characters. If no 
extension is given a default value will be assumed; this is initially 
set to three spaces. The method of changing the default file extension 
is described under library procedure "swlist" in the section 
“Input/Output directly to or from memory". It is possible to force the 
use of the default file extension regardless of what is given by the 
call; 


toc (20) 


In order to return to the default situation where a specified file 
extension takes precedence call: 


foe (21) 


The DRIVE: consists of one of A:, Bs, C:, Ds or may be omitted. Tf 
omitted a default is assumed according to the following rules. At the 
start of each list the assumed drive is the “logged on drive" when the 
program is first entered. Any subsequent drive specified within the list 
then becomes the default for following entries. 


Switch options may be added to any input/output device or file 
specification and consists of a series of up to 12 characters enclosed 
within square brackets. Lower case letters are converted to upper case. 
Switch options must not contain a comma or equal sign. Certain switches 
are recognised by the runtime system and acted upon; in the example 
given above the input file DATA.DAT[(B] the switch (B] causes the file to 
be opened for "random access" reading. Other switches not used by the 
system may be used by the program. A facility exists for the program to 
read the switch list directly. 


The occurrence of two adjacent commas within an 1/0 list is 
equivalent to specifying the "null" input/output device NL: (stream 0}. 


The foc calls described above will have set up input/output lists. 
These lists may now be used to assign files or devices through the 
predeclared procedures input and output. 


1 


RESEARCH MACHINES 


280 ALGOL 


we 


dev:einput 


will read the next entry in the "input list". If the entry is 
found to be a device then dev will be assigned a value 
corresponding to that device name. If a disk file was specified 
then that file will be opened. A buffer region will be allocated 
to contain the file control block and sector buffer (if serial 
access). The stream number returned will be from 64 upwards, the 
actual value indicating which buffer is allocated to that file. 


A negative value for dev indicates an error e.g. bad 
syntax, no entry found in input list or no file found of that 
name. 


dev:=output 


Similar to input but for output files or devices. A number of 
options exist regarding what action is to be taken if an output 
file name specified is found already to exist. These options are 
selected by calls *o ‘oc which set the appropriate flags within 
the runtime system. The first is ti:e default case. 


fLoe(13) 
No checks are made. A second file of the same name will be 
created. A problem may be encountered later on trying to access 
such files. 

4oe(14) 


The existing file of the name specified will be deleted before 
the new file is created. 


toe (15) 


If a file name is found to already exist the call of output will 
return a stream number of -100. No new file is created. 


CLOSING AND DELETING FILES 


When the use of a file 1s completed it should be closed by a call 
of the predeclared procedure: 


close(dev) “ 

This will close the file associated with stream dev by a@ 
previous input or output call. If dev does not correspond to a 
disk file nothing happens. NOTE: If an OUTPUT FILE is not closed 
its contents will be LOST. Input files should also be closed, 
as this call also serves to release the buffer and file control 
block associated with that file and makes it available for 
further use. 
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delete (dev) 
This will delete the file associated with dev by a previous 
input or output call and release the file control block ani 
buffer for reuse. 
INPUT/OUTPUT SUPPORT ROUTINES 
The following additional procedures are recognised by the runtize 
system and are made known to the compiler by including the text of 
ALIB.ALG with the program source. 
rewind (dev) ; 
The serial input or output file associated with dev is (first 
closed in the case of output files and) rewound for reading fron 
the beginning. 
dev:=findinput (“string"); 
This call will open the file or device ¢tfined in "string" for 
input on stream dev. If the first character of "string" is found 
to be a question mark °?° then the effect is as follows. The 
remainder of the string is printed on the console as a prompt to 
the operator who enters the required input file or device name. 
OceQe 
a 


- dev: =findinput ("?Source file="); 
will prompt the operator: 
* Source filee 

who then enters the required name. 

dev: =findirput ("DATA.DAT"); 

opens the file DATA.DAT on the logged on drive. 

The input specification may in fact consist of an “input list" 
the first entry of which will be used and assigned to dev. Note 


that the use of this procedure will wipe out any previous ° input 
specifications waiting in the input list. 


dev:=findoutput ("string") 
This is analogous to findinput but for output. The outpuc 


specification may if desired be generalised to be a corplete 
input/output list as described under ioc(2) and ioc(3) above. 
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L:=rename; 


This procedure renames a file. The old filename and drive 
information is taken as the next entry in the "inputlise™. The 
new filename is taken from the next entry in the “outputlise"™, 
@ege 


foc(1); 


text (7,"FRED.ABC=#9B: JOE. xY2"); 
ioc(3); 


L:=rename; 


will rename file JOE.XYZ on drive B: as FRED.ABC. Note that . 
the CP/M rename utility will rename all files that satisfy the 
input specification. On exit 


ie] implies a failure e.g. file not found or illegal 
syntax. 

ter “48255 CP/M reply from rename regardless of success or 
failure. 


The default file extension will be used if none is specified, or 
1£ 1o0c(20) is in effect, will be used regazdless. If a file of 
the same name as the new name given is found already to exist 
then the result will be the same as described under procedure 
“output” with Epgate to calls of to0c(1l3) to ioc(15), namely: 


foc(13) No checks are made. 
ioc(14) Erase any pre-existing files of the sane Dame. 
foc{15) Return the value -100 in {. 


Lsenewext (j,"XYZ") 


The file associated with stream j by a previous call of input or 


output is closed and its file extension changed to the 3 
character string given as the second parameter. This string 
becomes the default file extension e.g. - 


g2:=findinput ("FRED.ABC") ; 

t:enewext (j,"XY¥Z2"); 
will rename the file FRED-ABC as FRED.X¥Z. No checks are made 
as to the pre-existence of files of the same name. A negative 
result in 1 implies a failure; the expected reply is 255. 


s=bios(n,bc) 


This procedure performs a direct call through the BIOS jump 
vector where 

n #® entry in the jump table (0 to 14) 

dew contents of BC register pair on entry. 

a= contents in A register on exit. 


Refer to the CP/M System Alteration Guide for details. 
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a:=cpa(c,de) 


This procedure performs a direct call to CP/M where 


© = contents of C register on entry (0 to 27) 
de= contents of DE register pair on entry. 
a= result in A register‘on exit. 


Refer to the CP/M Interface Guide for details. 


Lsefcblock (dev); 


This returns in i the address of the file control block 
associated with file stream dev. This can be useful only to 
users who wish to manipulate CP/M facilities directly. 


iswexflct(a,t); 


Extend the file control block list. The RML Algol system is 
initially set up. to allow 4 serial files and 2 random access 
files open at any time. Should users -<vequire more than this 
number of files then this procedure may be used to extend the 
list of file control blocks available. Each call extends the 
length of che list by one. On exit a negative value in i 
. indicates an attempt has been made to extend beyond its maxinun 
“length of 16 entries. The parameters to exflt are: 


a = address of buffer to use 
t = file type 
If t=0 then serial file else random access 


The buffers used are user declared arrays, the address of which 
4s found using procedure location e.g. 


BEGIN BYTE ARRAY buf (0:160); 
L:mexflt(location(buf (0}),0); 


The buffer sizes required are for serial files 161 bytes (33 for 
file control block + 128 for sector buffer) and for randon 
access files 33 bytes. It is the user’s responsibility to ensure 
that the array is large enough to accommodate the buffer and 
that such buffers do not overlap or become overwritten. 


INPUT/OUTPUT DIRECTLY TO OR FROM MEMORY 


‘As an aid to text processing and related manipulation e.g. setting 
up file extensions or reading the switch list a facility exists to reac 
or write using the standard input output routines directly to or fron 
anywhere in memory. Such I/O is associated with stream number 10. a 
number of string handling routines relevant to the following are 
described in the section on “library procedures". Before 1/0 can be. 
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performed via memory it is necessary for the user to set up pointers to 
where input/output is to occur. As each character is read/written the 
corresponding pointer is advanced by one. The following procedures to 
manipulate these pointers are in ALIB.ALG. 
seti(a) 

Set che INPUT pointer to the address a. 
seto(a) 

Set the OUTPUT pointer to the address a. 


In practice a call of location would probably have been used to 


find the address. In order to find the current values of the 
input/output pointers: 


i:=tpoint 
Returns in £ the current address of the input pointer. 
L:=opoint 


Returns in i the current address of the output pointer. 


A typical sequence might be: ° . SN 
BEGIN BYTE ARRAY buf [0: 1000}; ee 


seto(location(buf (0)); : . 
seti(location(buf [0]); . 
rwrite(10,x,0,6)3 seccese 

Lisopoints cecocnve 

x:=read(10)3 


It is the user’s responsibility to ensure that such I/O stays within the 
declared bounds of the array buffer used. ; 


i:eevlist 
Returns in i che address of the switch list. 


The user can check if any switch options have been specified following a 
call of "input" or "output" by reading the contents of this switch list. 
These switches (a maximum of 12 characters) can be read using input 
stream 10. A typical sequence might be: 


seti(swlist); 
{:echin (10); ; 
The first switch is now in 1. The list is terminated with a zero value. 
The switch list always contains information relevant to the most recent 
call of the procedures “input” or “output”. 


The default file extension is stored in the 3 bytes following the switch 


list. This can conveniently be set up by writing 3 (and on 
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_ characters into the appropriate buffer by means of output to stream 10 
@-g- 


seto(swlist+13); 
text (10,"X%z"); 


This sequence will set the default file extension to XYZ. On entry the 
default extension 1s set to null, i.e. 3 spaces. 


This technique can also be used as a way of reading small quantities cf 
data in a manner similar to the DATA statement of BASIC. E.g. 


seti(sloc("1.32 99.6 see.."))3 
FOR i:=1 STEP 1 UNTIL 20 DO x{1i]}:=read(10); 


The procedure sloc is described in the section on library procedures. 
Another example involving text can be found in the program VDU.ALG oa 
the distribution disk. : : 


RANDOM ACCESS FILES 


A file may be opened to be read by random access rather than 
serial access. Such files are opened as "input" files with a switch [B) 
set to signify block I/0. If the file is to be updated i.e. written to 
then an additional switch is needed [BM] where the M indicates “modify”. 
These rules imply that only pre-existing files may be opened for random 
access. As example of an “input" specification. 


DATA .DAT(B] , DATA2. DAT (BM) 


The first file is opened for random access reading and the second for ’ 
reading/writing. 


L:erblock(dev,a,b,n) 


will read n blocks from the disk file associated with stream 
dev, starting at block number b, writing the contents in memory 
starting at address a. The length of the transfer is 128*n 
bytes. The first block of the file is block number 0. The 
address in general will correspond to part of an array set up by 
means of procedure location (see section on library procedures) 
Qoge 


Ls=rblock (dev, location (buf (0)),b,10); 
On exit i will. Nave the following meaning. 

i=0 successful read. 

del read past end of file. 

i=2 reading unwritten data. 


i=3 hard error. 


The user should ensure that the declared array is large enough 
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to accept the transfer. Any part of a selected transfer 
extending beyond the end of file will be set to zero. 


iswwbhlock (dev,a,b,n); 


Will write nu blocks to disk; the parameters are the sane as for 
rblock. On completion i can take the following values. 


1-0 = successful write. 

i=l error in extending file. 

i=2 end of disk file. 

i=3 hard error. 

1=255 no more directory space available. 


LIBRARY PROCEDURES 


The following procedures are built into the runtime system and can be 
made known to the compiler by including the source of file "ALIB.ALG" 
with the program. Some of -hu following are machine dependent but all 
are available for the RML 380Z. See the listing of "ALIB.ALG” in 
appendix 4 for the formal definitions of the procedure parameters. 


t=location(x) 


This returns with £ set to the address of variable x; x may be 
REAL, INTEGER, or an array element of type REAL, INTEGER, or 

- BYTE. In the case of REAL or INTEGER arguments the address 
returned is that of the slot assigned to that variable (see 
description of the workings of the runtime system). Each slot 
occupies 4 bytes and in the case of INTEGERs only the upper half 
is used so that in this case 2 should be added to get the actual 
address containing the integer. Array elements as arguments 
alwsys return the correct address. The procedure works by 
recalling the most recent variable address computed; as the 
argument is called by value the compiler will in fact accept any 
expression as the actual parameter, although the result will 
correspond to the final variable specified. Users who wish to to 
find the address of Boolean variables may construct a similar 
procedure with the same body as location but with a formal 
parameter of type- Boolean by value. 


i:efspace 


This returns the number of bytes free (allowing for a safety 
margin for stack operations). Note that on large systems the 
result may exceed 32K and thus appear to have a negative value 
in two’s complement representation. 


blmove(s,f,len) 


Block move of len bytes starting at sé2dresas s to the block 
starting at address f. In general the use of procedure location 
(see above) would be used to set up the addresses e.g. 
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blmove (location (a[0]), location(b(0)), 100) 
It 1s the user’s responsibility to ensure that such block moves 


stay within che limits of the declared arrays. This procedure 
will work correctly if the two blocks overlap. 


i:=peek (a) 
Returns the byte value contained within the address given by a. 


poke(a,i) 


Sets the contents of address given by a to the value of (the 8 
least significant bits of) 1. 


az=in(c) 


Input from a port. This procedure executes an IN A,(C) 
instruction. 


out(c,a) 


Output to a port. This procedure executes an OUT (C),A 
instruction. : 


b:=paricy (1) 


This Boolean procedure returns TRUE {f the character value of 1 
(8 least significant bits) has EVEN parity else FALSE. 


SBIFTS AND ROTATES 
In the following procedures v is the value (type INTEGER) and nr 
is the number of places to shift or rotate. Note that only the 
4 least significant bits of n are used so its value should be in 
the range 0 to 15. 
1L:=shl(v,a) Shift LEFT. 
s=lsr(v,n) Logical shife RIG&T. 
-iseasr(v,n) Arithmetic shift RIGKHT. 
f:=rotl(v,n) Rotate LEFT. 
d:erotr(v,n) Rotate RIGHT. 


Arithmetic shift right extends the sign bie whereas logical 
ahife cight always places zeros into vacated positions. 


x3*randon : 


Returns a pseudorandon number in the range 0 to I. 
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clarr(a,len) 


Clear array area of length len bytes starting at address a. 


‘dpb(u,t,s,a) 


Set up the disk parameters, u=unit number (0 to 3), tmwtrack, 
s=sector, a=DMA address. 


t:-rdisk 


Read the disk directly using information set up in a previous 
call to dpb. The result from the CP/M call will be in 1. 


Leewdisk 


Write to disk directly using information set up by a previous 
call to dpb. The result from the CP/M call will be in 4. 


i:=sloc("“string”™) 


Returns in 1 the address of the start of the string. The actual a 
parameter may also be a string parameter ot a procedure e.g~ 


PROCEDURE x(s); STRING 8; 

BEGIN INTEGER 13 
i:=sloc(s); 
L:=sloc("XYZ"); 


Strings consist of a series of characters stored in sequential 
bytes terminated by a zero. 


atext (dev,s); 


This is similar to the pre-declared procedure “text” but the 
second parameter is the address of the string. eg. 


text (dev,"XYZ"); is equivalent to atext(dev,sloc("XxYzZ")); 


i:#tlen(s) 


Returns the length of the string whose address is at s. E.ge | 


Li:=tlen(sloc("XY¥Z")); a> 


' returns the value 3. 

1:=smatch (long, short) 3 
This procedure compares two strings looking for the first match 
within the long string corresponding to the contents of the 
short string. The parameters are the addzesses of the strings. 
If a match is found the value of i is set to the address within 
the long string corresponding to the start of the match. If no 
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watch is found 1 will be set to zero. Additional matches may be 
found by giving as the starting address of long the value one 
greater than the result of the previous match. 


The following procedures are only available for the MML 3&02. 


4:~eme (n) 


The program executes an “EMT n” instruction; on exit 1 contains 
the value returned in the accumulator. 


wait(n) 


Delay for 10*n msecs, with o in the range 1 to 255. 


The following procedures are concerned with low resolution graphics on 
che RML 380Z. * 


chpos(x,y) 


The values cf x and y define «a coordinate position on the VT 
screen with the origin set 4 lines up. The valid ranges for x 
and y corresponding to the screen are thus 


0 <= x< 40 , -4 <m y < 20 


Output can now be directed to the screen starting at the 
specified position through device stream Il. As each character 
is written the x coordinate is advanced one position to the 
right. Once text extends beyond the limits of the screen it’ 
stays off for all subsequent text until reset by a further call 
of chpos or point (see below). The use of graphics will in 
* general be associated with a call of emt(13) to clear the screen 
and set the 4 line scroller (see COS manual). Data may also be 
read back from the screen through device stream 11; again the x 
° . coordinate is advances after each character read. Once beyond 
the screen the value returned will be CONTRCL-Z. For example to 
write "Hello" in the middle of the screen: 


i:=emt (13); 
ehpos (17,8); 
text(11,"Hello"); 


point (x,y,z) 


This procedure plots a point on the screen of intensity 2 at 
position (x,y), where: 


z=0 dot off . 

22! dim dot ? 

z=2 bright dot 

z>2 plot the character value of z 


43 


Lee 


RESEARCH MACHINES 


Z80 ALGOL 


In this case the coordinates (x,y) are in terms of the basic 
graphical unit, again with che origin 4 lines up, so that: 


0 <= x< 80 , -12 <= y < 60 


This routine also set the screen coordinates for 1/0 through 
device stream 11 as described under procedure chpos. 


line(xl,yl,x2,y2,2) 


This procedure dravs a line from position (xl,yl) to position 
(x2,y2) where the values of x, y, and z are as defined for 
point e 5 


LIBRARY INSERTS 


A facility exists which allows the contents of “library” source 
files to be included with the body of the program at compile time, e.g. 


LIBRARY “B: ALIB.ALG" 
or, using the upper case convention, 
“LIBRARY® “B:ALIB" 


The effect at compile time is that on encountering the language key word 
LIBRARY the compiler looks for an input file specification enclosed 
within string quotes. This file is opened and its contents included vith 
the program source at the points the call is found. In the above case 
the file ALIB.ALG on drive B: is read, the default extension being 
“.ALG". The default drive is the logged on drive. This facility allows 
the user to construct libraries of frequently used procedures thus 
avoiding duplication of text and excessive editing. 


BEGIN INTEGER 1,4,k; 


LIBRARY “ALIB" 
LIBRARY “IOLIB" 
LIBRARY “STATLIB" 


PROCEDURE abc; saseee 


This example would include the contents of three library files in turn 
when compiling. These files may if desired themselves contain LIBRARY 
directives. The limit on the depth of such calls is set by the maxima 
number of input and output files that may be open at any one time. In 
the compiler as distributed this limit is set to five. 
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EXAMPLE PROGRAMS 


ND anes 
. 


The following examples illustrate various aspects of the language. 
The first four are fairly straightforward; the final cwo examples assume 


a “fairly advanced knowledge of mathematics. Further examples can be 
found on the distribution disk. 


The first example lists a table of the integers up to 20, together 
with their square roots, on the console. 


BEGIN INTEGER 1; 


FOR 1:=0 STEP 1 UNTIL 20 DO 
BEGIN rwrite(1,1,5,0)3 
rwrite(l,sqrt(1),0,6); 
skip(1) 
END 
END 
FINISH 


The second example simply lists a file on the console. On 
detecting the end of file it loops back for further files to list. 


BEGIN INTEGER i,d; 


{get input file} 
leop: ioc(4); d:=input; 
{check if valid file) 
IF d<64 THEN text(1,”"*NTry Again") 


ELSE : 
BEGIN {lise file on console} 
. : FOR i:=chin(d) WHILE i#&°2 DO chout(1,1); 
close(d); {release FCB} 

END; 
GOTO loop; {go round again} 

END 

FINISH ~ 


@ 


The next example is a procedure to illustrate string handling. The 
routine makes use of several procedures from ALIB.ALG. The procedure 
scans a piece of text starting at address "old" and substitutes ‘every 
occurrence of a given string "olds" by that given in "news". The source 
ds itself in the form of a string, i.e. terminated with a zero value. 
The resultant string will scart at address "new". The calling sequence 


45 


RESEARCH MACHINES 


280 ALGOL 


la:=location(a(0]); 

lb:*location(b[0]); : 
substitute(1b,la, "Jack", "Z1"); 
substitute(la,lb,"Jill","22"); 


will replace every occurrence of "21" by "Jack" and “Z2" by "Ji11". 


Both the initial string text and the resultant string start at location 
a(0]}. The array b is used as working space. 


PROCEDURE substitute(new,old,news,oldsa); 
VALUE new,old; INTEGER new,old; 

STRING news,olds; 

BEGIN INTEGER 1,j,ns,08,nl,ol,oldfin; 


as:=sloc (news); 


08:*sloc(olds); {addresses of strings) 
al:=tlen(ns); 
ol:etlen(os); {lengths of strings 


{address of closing zero of input string} : 
oldfin:=tlen(old)+old+l3 : 
{look for matches) 

FOR i:=smatch(old,os) WHILE 1#0 DO 


BEGIN js=f-old; . {length of text to copy) 
blmove (old, new, $) {move over portion of text) 
new: newts; {update pointers} 
old:=old+j+ol; - {skip old string) 
blmove (ns ,new,nl); {copy in new string) 
new:enewtal; {update pointer} 

END ; ee 

blmove (old, new, oldfin-old) ; {copy remainder} 


END substitute; 


The fourth example, quicksort, is a sorting algorithm originally 
developed by C.A.R. Hoare. An array of values is sorted into ascending 
order. The method involves reordering terms such that it can be 
partitioned in the form 


allow), a(lowtl},...a{t-1] < ali] <= a(i4+1),a(1+2],...afhigh]) 


The pivot value in this case is arbitarily chosen as the value of the 
final element on entry. The procedure then calls itself recursively for 
each side of the above expression until each partition contains only one 
term. The following coding exploits a feature of this compiler that the 
value of the loop variable on exit from a loop will be that which led to 
the loop’s termination. This may not be the case on other Algol 
compilers. , 
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PROCEDURE quicksort(a,low,hizh); 
VALUE low,high; INTEGER low,high; 
INTEGER ARRAY a; 
’ IF low<high THEN 
BEGIN INTEGER 1,j,pivot,x,y; 
. Limlow-1; j:ehigh; pivot:ea{4]; 
loops i:=4+1; ‘ 
FOR x:=a(i}) WHILE x<pivot DO 1:=1+1; 
ji=j-l; 
FOR y:=a[j] WHILE j>1 AND y>=pivot DO j:@j~1; 
IF 1<j THEN 
BEGIN ali}:=y; a(j]:=x; GOTO loop; 
END ; 
| {move pivot to centre} 
‘yrwa(high); afhigh):=x; a(i):ey; 
{always deal with the smaller partition 
first to minimise depth of recursion) 
IF i~low<high-i+2 THES 
BEGIN quicksort(a,low,i=1); 
quicksort(a,irl, high) : ; 
EXD ELSE ° 


BEGIN quicksort(a,{+l,high); 
quicksort(a,low,i-1) 
END 


END quicksort; 


The next example is a statistical teat. Observations are made in - 
pairs, the first of each pair belonging to one group and the second to 
another. To find out if there is any difference between the two groups, 
we first find the total difference between them. We calculate the 
probability of getting this difference by chance, if the pairs of 
observations had been assigned randomly to each group, rather than 
always the first of the pair to the first group. If there are j pairs, 
there are 2°j ways of assigning the pairs into the groups. Each 
combination must be tested by finding the total difference between the 
groups and counting the number of occasions on which this difference is 
greater than or equal to that actually observed. This count divided by 
27j is the probability of observing the difference by chance. In the 
program, the differences between the observatiors in each pair are held : 
in the array d. The procedure br adds to the sum the difference 
indicated by the parameter no with sign indicated by s. Unless a 
indicates the last difference, it generates two more sums, one with a 
positive difference and one with a negative difference. Each time n 
reaches 1 the total sum is checked to see if it {fs greater than or equal 
to the observed sum of differences. 


To solve this problem without: recursion involves a number of 


nested FOR loops equal to the number of data pairs. Thus, a separate 
program would have to be kept for each number of daca pairs. 
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BEGIN INTEGER 1,4,count; 
REAL a,b,obs; 
ARRAY d[1: 100}; 


PROCEDURE br(n,8,s8um); 
VALUE n,8,Sumj; 

INTEGER n,$; REAL sum; 
BEGIN sum:=sumtd (n) *s3 


IF n=l AND abs(sum)>-abs(obs) THEN count:«count+l ELSE 


IF nfl THEN 
BEGIN br(n—1l,l,sum); br(n=1,—1, sum) 


END : 
END br; 


text(1,"*Nnumber of pairs?"); j:=read(7); 
obs:=0; me : 
FOR i:el STEP 1 UNTIL 4 DO 
BEGIN a:=read(7); b:=read(7)é 
obs:“obs+ta-b; d{iJ]:#absla-b); 
END ; : 
text(1,"*Nsum of differences"); 
rvrite(l,obs,8,2); count:=0; 
br(j,~1,0); br(j,1,0); 
text(l, 
“*nProbability of same or greater with random signs "); 
rvrite(1,count/2°4,7,3)3 
END 
‘FINISH 


The final example is a procedure for solving simultaneous 
equations. The left hand side matrix is set up in a two dimensional 
array a{row,column] and the right hand side in a vector b{row]. The 
array names (a and b are only examples) are passed to the procedure to 
correspond to the names lhs and rhs, together with an integer giving the 
number of equations and a label to exit to if there is no solution. The 
answers are left in the right hand side vector. The method uses a 
Gaussian elimination with partial pivoting. 
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PROCEDURE solve(order,ilhs,rhs, fail); 

VALUE order; ° 

INTEGER order; ARRAY lhs,rhs; 

LABEL fail; 

BEGIN INTEGER row,col,rowl,orderl,i,j; 
REAL max; 


FOR orderl:*order STEP -1 UNTIL 2 DO 
BEGIN max:=0; 
FOR j:=1 STEP 1 UNTIL orderl DO 
IF abs(ihs[{j,orderl})>max THEN 
BEGIN max:eabs(lhs(j,order!)); row:=4; 
END ; 
IF rowforderl THEN 
BEGIN max:=rhs{orderl); 
rhs (order! ]:=rhs [row] ; 
rhs (row) : max; 
FOR col:#1 STEP 1 UNTIL orderl DO 
BEGIN max:=lhslorderl,col); 
lhs (order! ,col]:=lhs (row,col] ; 
lhs (row, col} : =max 
END . 
END swop equations; 
IF lhs(orderl,order!}]=0 THEN 
nosol: BEGIN text(1,"*Nno solucioa"); 
GOTO fail 
END ; 
FOR j:=STEP 1 UNTIL orderi-1 DO 
BEGIN max:=lhs[{j,orderl}/lhs (orderl,order1); 
rhs (j):=rhs (j)-rhs [order1)*max; 
FOR col:=] STEP 1 UNTIL orderl DO 
BEGIN lhs[{j,col]:= 
lhs (j,col]-lhs (orderl, col) *max 
END zero one element; 
END zero one column; 
END triangularise the left hand side; 
IF lhs{1,1]#0 THEN GOTO nosol; 
FOR row:=1 STEP 1 UNTIL order DO 
BEGIN _ rhs [row]: =rhs [row] /lhs (row, row); 
FOR rowl:srow+! STEP | UNTIL order DO 
ths {rowl] :=rhs (rowl]-lhs (row!, row] *rhs (row) ; 
END ; 
END solve simultaneous equations; 
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COMPILING AND RUNNING PROGRAMS UNDER ce /M 


LLL a SD RAND AAR RD AAR A SET IE STARE ACE EE AED ALSIP AS EAT, 


Running RML Algol is a two stage process: 


1.Compiling: The program source is read by the compiler to 
produce an output file in a form to be read by 
the runtime system. 

2.Running: This stage loads the file output from the 
compiler and runs it. 


The simplest sequence of commands given a program so 
file "PROG.ALG" would consist of: g pl 4 urce in a single 


To compile program: 
ALGOL PROG 
To run program: 


ARUN PROG 


We will now consider these activities in more detail. The two basic 
files involved are: 


The compiler ALGOL. COM 
The runtime system ARUN. COM 


The default disk drive for input and output files is the logged on 
drive. The default file extensions are: 


Source files ALG 

Compiler output ASC 

Monitor file * «MON 
COMPILING 


In the simplest case given above the compiler reads the program 
source from the file specified; if no file extension is given then the 
default will be used. The output file created ie given the same name as 
the source file but with the extension ".ASC". Any pre-existing file of 


the same name as the output file will be deleted before the new output 
file is created. If the compiler detects any errors in the program 
source the output file is deleted but compilation continues until the 
end of the source, checking for further errors. Error messages are sent 
to the console. At the the of compilation the size of the resulting 
program is printed and control is returned to CP/M. 


A more general form of calling the compiler is: 
ALGOL outlisteinlist 
For example: 
ALGOL OUT=IOLIB,B:MATHS, PRUG 


Using this method, the input source is read from a series of files ina 
turn; typically these files would consist of 
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procedures, ending with the file containing the program. It should be 
remembered that the overall source should correspond to the required 
Algol Ddlock structure, from the first BEGIN to the final corresponding 
END and FINISH. Files may be taken from several drives; if the drive is 
not specifically included then the currence default will be used. This is 
discussed in the section on 1/0 selection. In the example IOLIB.ALG is 
taken from the logged on drive and MATHS.ALG and PROG.ALC from drive B:. 


_The output OUT.ASC goes to the logged on disk. An alternative (and 


perhaps better) way of combining source files is by the use of the 
LIBRARY facility previously discussed. It must be remembered however 
that the use of such library calls is restricted to the final file 
specified in the input list otherwise the remaining input file 
specifiers will be overwritten. This is discussed in the details of 
library procedure “findinput". 


Tf a second output stream is specified then a listing of the 
compiler identifier tables will be generated. Compiler error messages 
will also be sent to this stream along with an indication of the maximun 
table size the system can support. 


ALGOL OUT1 ,OUT2=PROG 


will send the compiler output to OUTL.ASC, and all compiler error 
messages and identifier tables go te OUT2.MON. 


ALGOL OUTI1 ,CON: =PROG 
will send errors and identifier tables to the console. 


If no input/output is specified in the call, or if an error exists 
,@ege bad syntax or a non-existent source file is given, then the 


compiler will prompt for 1/0. For example a call of the form: 


ALGOL 


will result in a prompt of the form: 


OUT=IN? 


The user may now specify a list of input and output files as for the 
above case. : 


The output from the compiler is about the same length as the 
corresponding source text. : 


If the 1/0 files were specified in the initial calling line f.e. 
"ALGOL PROG" then upon coaplecion the compiler will return to CP/M. If 
the 1/0 files were given as the result of a prompt from che compiler, 
then upon completion the compiler will be restarted, to allcew further 
programs to be compiled. A reply of CONTROL-C in this case will retum 
control to CP/M. 


Sk 
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RUNTIME SYSTEM 


Given a successfully compiled program, the output file so created 
may now be run by a calling the runtime system as follows: 


ARUN filename 


The assumed file extension is ".ASC". The file specified will be loaded 


and then executed. If no input 1s specified or if an error is found e.g. . 


bad syntax or non-existent filename then the runtime system will prompt 
the user for an input file. For example a call of the form: 


ARUN 
will prompt for input: 


INPUT= 
to which the user responds with the required filename. 


Upon completion of the program the system prints "“" on the 
console and waits for an operator response. Typing CONTROL-P will rerun 
the program or CONTROL=C will return control to CP/M. 


If a runtime error is detected then suitable diagnostic 
information is sent to the console (see section on runtime errors). 
Unless the user is making use of the error handling facility (see 
procedure “error” in library section) the system will now wait for the 
operator to investigate the cause of the error. The program may be rerun 
from the beginning by typing CONTROL-P or control returned to CP/M by 
typing CONTROL-C. 


The return to CP/M upon completion or upon detecting a runtime 
error can be made automatic by a call of 


Loe (22) 
within the program. 7 \ 
A call of the form 
ioc (60) o 
causes an immediate restart of the program from the beginning. Any files 


open at the time will not be closed although all file control blocks are 
released. 


Te 
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CORE IMAGE FILES 


If che user intends to run a-progran many times it may be saved on 
disk in a more compact core image format by specifying a switch [S} at 
runtime. e.g. 


ARUN filename (SJ 


Upon loading the program the system will delete the original ".ASC" file 
produced by the compiler and create a new file of the same name and 
extension in core image format. Future calls of the form 


ARUN filename 


will now automatically load and run from this core image file. As CP/M 
reserves a minimum of 1K bytes per file the saving may not be 
significant for small programs (except for some saving in the actual 
loading time.) The original ".ASC" file was in a system independent 
format, but the new core image format is not relocatable and se any 
changes to the runtime system which affect its size will make it 
necessary to recompile the program. 


COMPILER ERROR MESS.\GES - 


FAIL X ON LINE Y IDENT Z SYMBOL S$ 
“LINE UP TO ERRCR" 


X is the failure number (see below), Y the line on which it 
weccurred, 2 the last identifier read, and S the decimal value of the 
last symbol (see section entitled “compiler representation of basic . 
symbols"). “LINE UP TO ERROR" is a copy of the input line up to and 
including the symbol at which the error was found. The compiler output 
is switched off and the file deleted. The compiler however continues to 
check the syntax of the remainder of the program. In all cocpilers a 
-tradeoff is made between the amount of error information given and the 
size and speed of the compiler. In this implementation the emphasis has 
been to produce a compiler that can be used on a very modest sized 
computer. There is always a danger, particularly with a one pass 
compiler, that following the detection of a genuine error the systez may 
fail to synchronize fully and chus produce additional spurious errars. 


Identifier declared twice in same block. — 

Undeclared identifier. w 

No { after array name, except as a procedure parameter, or 
ordinary procedure used as a function. 

No ] at end of subscript list. 

More than 255 variables in the main program or a procedure. 

No FINISH at end of program. (Too many ENDs). 

No ELSE part of a conditional arithmetic expression. 

No ELSE part of a conditional Boolean or conditionsl 
designational expression. 

Relational operator not found where expected. Will occur if the 
firse arithmetic expression of a 3o00lean relational expression 


ON AU EH Ww 


‘o 
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4s totally enclosed in round brackets. 

10 Arithmetic primary does not start with +,-,.,(, digit or 
identifier. 

11 Z, MOD, !, MASK, or DIFFER does not have two integer operands. 

12 ) missing in arithmetic expression. 

3 Controlled variable in FOR is undeclared or subscripted. 

14 ) missing in Boolean or designational expression. 

15 More identifiers in scope than the tables can accomodate. The 


compiler automatically makes the tables as large as possible on 
a given system. 


16 Statement starts incorrectly. If this occurs at the _ ‘Serminating 
FINISH is means there are not enough ENDs. 

17 Undeclared or unsuitable identifier on left of := 

18 Array declaration faulty. 

19 Type specification of actual parameter is not LABEL, PROCEDURE, 
REAL PROCEDURE, BOOLEAN PROCEDURE or INTEGER PROCEDURE. 

20 Wrong number of subscripts. In the case of formal arrays, this 
error cannot be detected until runtime. 

21 No ) after actual parameter list. 

22 FOR statement element not terminated by , or DO. 

23 Procedure body not delimited by ;. 

24 z= not found where expected. 

25 No THEN after IF. 

26 VALUE specification is not the first specification of procedure 
formal parameters. : 

27 FINISH in middle of progran. Possibly an unmatched BEGIN, " or 

28 Procedure formal parameter list not ended by ). 

29 Parameter specified twice, or is not in formal list, or 
specification not terminated by ;. 

30 ’ Label/procedure lise full. 

31 UNTIL not found where expected. : 

32 No ( after name of standard procedure (except input or output). 

33 THEN followed immediately by IF. 

34 Procedure actual parameter starts with an undeclared identifier. 

35 Function or variable used as procedure. 

36 procedure input or output is followed by a (. 

38 Arithmetic expression contains Boolean variable in illegal 
context. oar 

39 Parameter specified VALUE is not in formal list. 

40 Parameter specification not complete. 

41 An array has been called by value. uw 

42 Input/output procedure call error. 

44 Integer literal not in range. 

46 Switch list does not end with’;. 

47 Switch has more than one subscript. 

48 Word BYTE not followed by ARRAY. 

49 Input files exhausted without end of program recognised. 

50 A procedure used before its declaration was assumed to be of «a 


type different from the actual type. Try reordering procedures 
: to eliminate the forward reference. 
! 31 Input file specified in a LIBRARY call not found. 
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COMPILER IDENTIFIER TABLE AND IDENTIFIER TYPES 


SEED oe ae nD en CPE 


The compiler may be instructed to print on the console or to the 
monitor file a list of all the tdencifiers declared, together with 
informaiion about their type and the addresses they will occupy in the 
memory. Variables are placed on a stack and the variable number is the 
position on the stack relative to a pointer. The pointer is held in 
location PBASE in the runtime program. The address of the variable is 


found by multiplying the variable number by 4 and adding this to the 
contents of PBASE. 


Four numbers are printed after each identifier in the compiler 
identifier table. 


The first of these is the stack position except for labels and 
procedures. For labels and procedures the symbolic label number ‘s 


printed. This is the digits part of a symbol such as L123 which is 
outpuc by the compiler. 


The second number is the procedure number of the enclosing 
procedure in which the identifier is declared. The main program is 0, 
and the procedures are numbered serially as they are encountered, 
regardless of depth of declaration. As an exception, the actual nunber 
of a procedure is printed, instead of the number of the enclosing 
procedure. 


The third number is the line number of the source program. 


The fourth number is the current size of the compiled code. This 
information can be related to the position given when runtime errors are 
detected. 


The type information of the identifier is then listed as follows. 
The numbers represent the internal representation of the data types. 


QO procedure formal parameter (type not yet known) 
real 

2 integer 

3 Boolean 

5 real array 

6 integer array 

6 byte array 

7 ~=Boolean array 

8 switch 

10 procedure 

ll real procedure 

12 integer procedure 

13 Boolean procedure 

14 label 


The compiled code of a procedure contains a list of the types of 


the parameters. The following types may appear, in addition to those 
above. 
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4 string 

21 real by name 

22 integer by name 
23 Boolean by name 


ww ee 


COMPILER REPRESENTATION OF BASIC SYMBOLS 


These are the decimal values which are printed in a compiler error 
message. Language key words are represented in the Algol source by the 


word enclosed in single quotes or in upper case and in the compiler by 
40*lst lettertsecond letter. 


If a compiler error message contains 4 symbol which is not on the 
list, an illegal compound symbol has been detected. The usual cause of 
this is an unmatched single quote. 


letters A-Z 1~26: : 
[ 27 ; : 
) : 29 

= (exponentiation) - 30 oo) te tee 

$= : 7000 Z 

! . 33 —- a ae ‘ . 

- (string brackets) ~° 34 °F tt 

# (not equal to) SG er ee Cage te 

$ 36 

4 (integer divide) 37 

>= (greater or equal to) .38 

( 40 : 
y os aL, er re aoe 
* " (muiltiply)° ae ee reat, 

+ - 43 

; && ; 

o ee os ad 45 : bia aoe Pepe ars 
. 25 : ee | ae ee 
/ (real divide 47 oe 

digits 0-9 eM BRST TT OT 

3 58 ue : 

H 59 

< (less than) 60 

= 6l Shuisaute® (See ee 

> | (greater than) 62 ee . 
<= (less or equal to) 63 °° - 
BEGIN 85 

BOOLEAN 95 

BYTE 105 

AND 118 

ARRAY 122 

COMMENT 135 

DIFFER F 169 

DO : 175 

ELSE 212 

END 214 

EQUIVALENT 217 
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FALSE 241 
FINISH 249 
FOR ° d 255 
GOTO 295 
IF 366 
IMPLIES 373 
INTEGER 374 
LABEL 481 
LIBRARY 489 
MASK §21 
MOD 535 
NOT 575 
OR 618 
PROCEDURE 658 
REAL 725 
STRING 780 
STEP 780 
SWITCH 783 
THEN . 808 
TRUE 818 
UNTIL " 854 ~ 
VALUE 881 


WHILE . 928 


‘ RUNTIME ERRORS 


SE 


In the event of an error condition being detected during progran 
execution, a message is sent to output device 1 (console or video screen 
generally) of the forn: : ‘ 


ERROR n 

ADD PBASE PROC LOC 
aaaa bbbb) plod 
aaaa bbbb p2 = d2 


aaaa bbbb 0 dc 


where: a error number (see following list) 
pl procedure number where error was detected 
asaa address of program counter 
bbbb value of PBASE at error e 
(see section on runtime system) - , 
dl location of program counter relative 


to the start of the program 


Both aaaa and bbbb are printed in hexadecimal. - 

The procedure number can be found by counting procedures from the 
beginning of the program starcing from 1. The main program is given the 
number 0. This information can be found in the compiler identifier table 
output. If pl is non-zero the calling sequence is then printed on the 
following lines until the outermost level (p=0) is reached. This 
traceback information can be used to invescigate the natura of failure 
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in greater detail if required (see section describing working of the 
runtime system). The information given in dl ete can be related to the 
corresponding information given in .the compiler identifier tablas to 
help locate the position of errors. The program may be restarted from 


the start by typing CONTROL-P or control returned to CP/M by typing 
CONTROL-C. 


RECOVERY FROM RUNTIME ERRORS 


In normal operation a program is terminated by the detection of a 
runtime error. It is possible however to continue following an error 
allowing the program to exit in a controlled manner e.g. close output 
files, give more useful diagnostic information, values of variables and 
so one This recovery is achieved by including a call of procedure 
“error” (in ALIB.ALG) in the program before the fatlure occurs e.g. 


error(LABEL crash); 


On detecting an error the runtime system will produce the error 
information given above and then transfer control to the label (or 
designational expression) "crash" in the user’s program. It is advisable 
that the label be located at an outermost pragram level as it may only 
be reached if it is within scope at the time of the error. The error 
number responsible for the failure can be found by weans of a call to 
chin(13) e.g. 


crash: i:=chin(13); 
IF 1>30 THEN GOTO cpabug ELSE cccce 


RUNTIME ERROR NUMBERS» 


0 Undefined error. This implies that an error has been detected 
which has no corresponding entry in the error list. This 
hopefully will only occur where the user has made modifications 
to the runtime system and failed to update the error list. 

1 Variable space used up (stack overflow). Probably the result of 

excessive recursion or array declarations too large for the 

available memory. The error traceback may fail under these ~ 
circumstances (the first line should always be correct). 

Overflow is checked following block or procedure entry and array 

declarations. 

Procedure called with the wrong number of parameters. 

Procedure called where the actual and the formal parameter types 

do not match. 

Array used with the wrong number of subscripts. 

Array subscript out of range (below base of array). 

Array subscript out of range (above top of array). 

Integer division by zero. 

Real division by zero. 

Real overflow. 

Real to integer conversion overflow. 

Real overflow detected during normalisation after real 

arithmetic operation. 
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Error in READ. Character read which {s not a legitimate part of 
a number (ASCII value is less than 48 fe <&0). 

Aas for 12 but ASCII value is greater than 57 (fe >&9). 

Error in READ. Number contains two or more decimal ooints. 

error in READ. A character + =. or E found with no associated 
digits. 

Square root of a negative number. 

Exponential argumenc too large (>87). 

Exponential argument marginally too large. 

Logarithm of a negative number. 

Logarithm of zero. : 
Table item out of range (below). Found in ioc(n), chin(n), 

chout(n,c) ete where n<0. 


“ for 21 but where n is greater than maximum value specified in 
st. 


End of file detected during READ. 


ERRORS IN LOADER 


24 Loader syntax error. Output from compiler has been corrupted?. 

25 End of input is indicated (CONTROL-Z read) but no program has 
been loaded. Selecting input device 0 will produce this effect. 

26 On completion of input there remein unresolved forward 
references. Input source is corrupt? : 

27 No program present on a restart. 

28 Label tables overlap program. Program is too large for 
available memory. 

29 Forward reference tables full. This error should be rare but 
can be avoided by reordering procedures so that they generate 
fewer forward references, i.e try to arrange that procedures are 
declared before they are called. 

30 Non relocatable core image input file is not compatidle with 
this runtime systen. 

CP/M ERRORS 

31 Channel number is out of range. 

32 No directory space found during output. 

33 Attempt to read from channel not opea for input. 

34 Attempt to read from a non serial channel. 

35 Attempt to read past end of file. 

36 Attempt to write to a channel without write access. af 

37 Attempt to write to a non serial file. 

38 Error in extending file. 

39 Attempt to output to random access file without write access. 

40 Attempt at random access to a serial access channel. 

41 Channel not open. 

42 Attempt to rewind a random access file. 

43 Random access with a negative block number. 

44 No slot available for input or output. 

45 Attempt to create an output File for random access. 

46 Random access transfer attempted with a block count less thar 


zero or greater than 255. 
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RUNTIME STACK ORGANISATION 


Some of this information will be useful when Algol variables are 
to be accessed from machine code added to the runtime system. 


The stack extends from the end of the runtime program to the end 
of available memory, as found by interrogating the system. The variable 
stack grows upwards from the end of the program and a working stack, 
used in evaluating expressions, passing procedure parameters, and CALL 
instructions, grows downwards from the end of memory. The variable stack 
consists of a number of frames, one for the main program and one for 
each procedure call. Within each stack frame is an array stack, which 
contains an array frame for each depth of array declaration. In the 
following section "word" refers to a 16 bit (2 byte) quantity. 


. The following pointers are used. Their addresses can be found © 
from the listing in the section entitled "adding code sections". | . 


PBASE points at the current variable stack frame 


MBASE points at the main program stack frame. When the main program 
is executing locations PBASE and MBASE contain the same value. 


WSBAS points at the base of the working stack in the current level. It 
is used to delete floaters from the working stack at Algol 
labels. 


ABAS points at the current array frame 
FSPT points at the next free location in the variable stack. 
The following registers are also of significance. 


sp points at the top item of the working stack. It must be saved 


and restored if used by any machine code added. It is also used 
for CALL instructions. 


Bo ¢ should also be restored if used. It is the Algol . interpretive 
code program pointer. 


Try must be restored if used. It points to a series of flags and 
working space. 


Each stack frame is divided into two parts, a variable part and 
an array part. The variable part is divided into slots which are each 
two words (four bytes) long. The actual address of a slot is found by 
wultiplying the sloc number by 4 and adding this to the base address 
which 1s held in PBASE or MBASE. In the main program frame the first 
declared variable is in slot 2 and the word pointed at by MBASE contains 
0, the level number of the main program. In procedure level frames slot 
3 is used for the result of a function and is unused in procedures which 
do not deliver a result. The procedure paraweters occupy slots 4 and 
upwards, followed by variables declared within che procedure. The first 
word of each procedure in the compiled program contains the number of 
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variable slots required by the procedure. The first word of the main 
program points at the last word of the compiled program which contains 
the number of variable slots required by the main prograa. 


In procedure frames the first three slots are used for linking 


information. Starting at the word pointed at by PBASE (slot 0) the 
words contain the following information. 


Word 1. The number of the procedure. 
Word 2. The return address 


Word 3. PBASE of calling level 
Word 4. WSBAS of calling level 
Word 5. ABAS of calling level 


A warisble stack slot may contain any of the following types of iten: 


1. A real number which is held in the standard four byte format. 

2. An integer number or Boolean value which is held in the highess 
addressed word of a slot. Booleans use only the least 
significant byte of this word. 

3. A label or procedure address, always a procedure parameter. The 
address itself is in the higheat addressed word end in the word 
below it is the value of PBASE at che time the address was 
evaluated. ; 

4. The address of an array or a switch either as a declared 
variable or a procedure parameter. The address is in the highese 
addressed word of the slot, the remaining word being unused. 

5. The address of a string or an unsubseripted variable for 
procedure parameters of type string vand variables called by 
name. 


The address in a switch variable points to the switch vector. The 
word pointed at contains the number of elements in the switch and 
subsequent words the addresses of the labels in the switch list. 


The array part of a stack frame contains a number of array levels, 
numbered by depth of declaration within a procedure gr the main progran. 


Level © always exists‘and is located immediately above the end of the 
variabl«s. ABAS points at the base of the current level, which contains 
the depth of that level. The next word (except in level 0) countains a 


pointer to the level below. Above the level information are the dope 
vectors and array elements. 


An array variable points at the start of its dope vector. This 
contains 2*( N+i) words, where N is the number of subscripts. The first 
word of the dope vector contains the number of bytes occupied by each 


elecent (i, 2 or 4), the second the number of subscripts and the third 
the lowzr bound of the firse subscripc. 


Tnere are two additional words for each additional subscript. The 
first <entains a cultiplier for the previously accumulated element 
number %52 the second the lower bound of the next subscript. The final 
word of the ceze vector contains the address of the vord beyond the end 


of the 3FFay elerencs. Array elements themselves are stored immediately 
after ¢.-¢ 427@ vector. 
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RUNTIME OPERATION CODES 


These are the operation codes which are output by the compiler. 
The lise gives their number in decimal. 


Expressions are evaluated using a working stack. The top element 
is referred to as Sl, the next one down as $2 and so on. The stack 
pointer °SP’ is used for this stack (and also for CALL instructions). 
It grows down from the top of available memory. 


Some of the interpretive routines take data from the program. Nl refers 
to the next byte after the code, N2 to the next, and so on. In the 
following section "word" refers to a 16 bit (2 byte) quantity. 


0 No operation. 
1 Declare array. Ni=depch of declaration. N2-number of 
declarations in multiple. N3=variable number of first. 


declaration. Néenumber of bytes in each element. N5enumber of 
subscripts Sleupper bound of last subscript. S2© lower bound of 
last subscript. $3, S4 etc., bounds of other subscripts. 

2 Formatted print. Slab, S2=a, S3evalue, S4edevice number. 

3 Read to S1 from input device in Sl. 

4 Store local variable from Sl. Nil»variable uumber. 

5 Print string. Followed by 7 bit ASCII code, terminated by zero. 
Device number is in Sl. 


6 Integer print Sleradiz, S2=value, S3edevice number. 
7 Read next character to $1 from device number in Sl. 
. Print $l as character, S2=device number. ; * 
9 Jump. Location is in next word. 
: 10 Leave procedure. 
li Enter procedure with no parameters. Address ia in next word. . 
: 12 Get local variable to Sl. Nl# variable number. 
' 13 Integer add. S1:=S2+S1 
: 14 Get array element. Nl=procedure number, N2=variable number, 


N3enumber of subscripts. The subscripts are on the stack. The 
main program is procedure number 0. 


! 15 Store array element. Slevalue, other information as code 14 
: except subscripts are in S2 etc. 
: 16 Set 16 bit constant in $1 from Nl and N2. 
i 17 Integer negate. Sil:=*-S$1 
: 18 Real ~ Integer. S1:=S27S1 
, 19 Integer multiply. $1:=S2*S1 w 
: 20 Integer divide. Sl:=S2/S1 
: 21 Integer subtract. eiiss2-ot 
: 22 S1:=S1=0 
; 23 $1:=$1>0 
: 24 Si1:=S1<0 
3 25 Get any variable to $l. Nl= procedure number, N2=variable 
: ' number. 
“4 26 Store to any variavie from Sl. Nl, N2 as for 25. 
oe 27 Standard function. Followed by another code. 
og 2 sqrt 3 sin 4 cos 
5 arctan 6 exp 7 Jla 
8 sign 9 entier 10 abe 
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28 Jump if SI=FALSE. Address in next word. 
29 Set zero in Sl. 
30 Sl:sNOT S1 
31 Si:=Sl AND S2 
32 Sl:=S1 OR S2 
33 Sl:=S1 EQUIV S2 
34: For statement calculator. Sle address of controlled vartfable. 


S2= final value. S3eincrement. S$4"0 for ac increment at the 
first test, else -l. Ni=type of control variable (O=REAL else 
INTEGER). The following word contains the exit address for loop 


completion. 

35 "foc". Parameter in Sl 

36 Enter procedure. Nienunmber of parameters. Sl=type of last 
parameter. §2=Value of last parameter, and so on, in reverse 


order. The address of the procedure is in N2 and N3. The first 
word of a procedure is the fixed space on the variuble stack 
required by the procedure. The following bytes contain the 
procedure number and the number of parameters 


expected, 
followed by the type specification of the parameters, in reverse 
order. 
37 Score outer block variable from Sl. Nl«varizbla oumber. 
38 Fetch outer block variable to Sl. Nl=variable number. 
. 39 Set in Sl the address of the zazsable whose procedure number is 
in Nl, variable number in N2. 
40 Skip, device number in Sl. 
41 Inceger Sl:=sign(52-S1) 
42 Set 8 bit constant in Si from Nl. 
43 Fix Sl. 
&4 Float Sl. 
45 Set floating point constant from next 4 program bytes. 
46 Floating negate. 
47 Set label in Sl. Address in next word. Second word of Sl becomes - 
variable stack base pointer. 
48 Evaluate switch address. Sleaddress of element 0, S2=subscript. 
° On exit Sl contains address. 
49 Real ~ real. Sl:=#S27S1 
50 Floating multiply. Sl:#S2*Sl 
SL Float $2. 
§2 Floating divide. Si:=S2/S1 ‘i 
53° Floating add. $l:=S2+S1 
54 Floating subtract. S$1:#S2-S! 
55 Store parameter called by name. Slevalue, S2=address. 
56 Floating Sl:#sign(S2-S1). 
$7 Jump to address in Sl. - 
58 Enter procedure vithout parameters whose address is in Sl. « 
59 as 58 but nucber of parameters in Nl. For 59 the rese of the 
stack is sec up as for code 36. 
60 - Print string whose address is in Sl, S2edevice number. 
61 Set stack depth. Nl=procedure number, N2earray depth required. 
62 Fesch parazeter called by name. Sl=address. 
63 Stop, end of progran. Prints ~ on censole or returns to CP/M. 
64 Stcre aa acdress in the program in a local variable. Followed by 
eb as mnuaber in Nl and the address in the next whele 
WOTG. 
65 Juzp ta the adcress in local variable number Ni. 
63 


er 


RESEARCH MACHINES 


280 ALGCL 
66 Set in Sl the address of local variable number N). 
67 As for 66 but main program variable. 
68 Get local array element. 
69 Get main program array element. 
70 Store local array element. , 
71 Store main program array element. Codes 68-71 are followed by 


the variable number in Nl, not by the level number and then the 
variable number as for codes 14 and 15. 


72 Read a floating point number, check for end of file. S)l«address 
of label to go to on end of file. S2= device number. 

73 Logical OR. Sl:=S2 OR Sl] 

74 Logical AND. Sl:#S2 AND $1 

75 Logical EXCLUSIVE OR. Sl:=S2 XOR Sl. 

76 Integer MOD. $l:=$2 MOD S1 

77 Close file, stream number in SI. 

78 Delete file, stream number in S$]. 

79 Open INPUT and assign to stream number Sl}. 

80 Create OUTPUT and assign to stream number Sl. 


ADDING CODE SECTIONS 


The most likely additions users may wish to mee to the runtime 
aystem are: 


1. adding input/output device handlers 
2. specialised code subroutines 


3. linking the above to the runtime error handling systen 


For each of these applications the additions can be made without getting 
deeply involved in the inner workings of the system. The following 
listings from the runtime system are all the user needs to understand. 
See the section "runtime stack organisation” where the significance of 
several of the important variables is discussed. Users who wish to 
bypass CP/M and create a stand alone system should refer to Research 
Machines for details. 


Each of the above applications is associated with a list of items. 
Pointers to these lists can be found near the start cf the runtime 
system. The general form of a list is 


NAME: a tlength 
fentry 0 
fentry 1 


fentry a 


The first byte defines the length of the list counting from 0. (Note the 
RML assembler allows "#NAME" as a shorthand for "DEFW NAME"). The name 
of the list has a corresponding pointer near the start of the runtime 
program. Note that the exact location and contents of these lists given 
here may differ from the actual values in the distributed system but the 
pointer address will be correct. The entries in the list contain the 
addresses of the corresponding entry points. Other variables of 
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importance are: 


PROGST contains the start of free space. The program code will 
start from here. 
ENDLIST contains the address beyond «hich the lists must not 
. extend. 


The various lists follow each other consecutively in menory. To 
add 1/0 handlers or code routines the following modifications must be 
wade. 

l. Write the code starting at the address contained in PROCST. 

2. Update PROGST to a new free space pointer 

3. Make an entry in the appropriate list and update the leugth 
of the list if necessary. 


Each list contains vacant slots or room left at the end for expansion. 
If this is insufficient, it will be necessary to relocate the entire 


List(s) and update the pointer(s) accordingly. Other points te observe 
are: 


IX and IY must be preserved in valve on exit. 

SP is used for subroutine calls and for the working stack. 
Exit from code routines is via a RET instruction and so 
any use of SP should leave it uncorrupted and balanced 
before exit. 

Other registers may be used as required. 
INPUT DEVICE HANDLERS 

INLP Pointer to input list. 

INLIST Name of input list. 

Input device handlers read a byte from the input scurce to register a 


} then exit via a RET instruction. e:echin(n) will read a byte from the 
device associated with entry “n" in the list. 


OUTPUT DEVICE HANDLERS 
OUTLP . Pointer to output list. 
OUTLST Name of output list. 
Output device handlers output the byte in register A then exit via a: RET 


instruction. chout(n,c) will send character “c" to device "n” in the 
list. : 


IOC LIST AND CODE SUBROUTINES 


IOCLS? Pointer to I0C list. 


4 


DELST Name of I0C list. 
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foc(n) will transfer control to the address associated with entry "n" in 
the foc list. Return is via a RET instruction. If the toc is in a 
procedure body (as in ALIB examples) then access to the procedure 
parameters is = straightforward. (See section on runtime stack 
organisation). Procedure parameters will occupy from slot 4 onwards and 


the result, if it is a TYPE procedure, will go in slot 3. The address of 
the slot is given by 


(contents of PBASE)+4*slot number 
Thus, the first procedure parameter will be given by 
(contents of PBASE)+16 


The various contents of these slots are described in the section on 
stack organisation. Note that integer values occupy the upper half of 


the 4 byte slots and so it is necessary to add 2 to the above sun. 


EXAMPLE CODE PROCEDURE 


Consider adding the “peek” procedure (already in ALIB-ALG) using the 

information given in the listing from the runtime system that follows. 

The Algol definition using the next available slot in the "ioc" list. 
would be: 


: . 3 
INTEGER PROCEDURE peek(a); . 
VALUE a; INTEGER a; foc(6l); 


The code routine could be as follows. 


3EXAMPLE CODE ROUTINE "PEEK" 
;POINTERS IN THE ALGOL RUNTIME SYSTEM 
PROGST EQU L15H 

PSTART EQU 24EFH 

DKLST £EQU 17028 

IOCLEN EQU 60D 

PBASE £EQU 1278 


sUPDATE ORIGIN FOR ALGOL PROGRAM 
ORG PROGST 
DEFW ENDPATCH - . 


3UPDATE I0C LIST LENGTH. a Ral 


ORG DKLST 
DEFB IOCLEN+1 


sENTRY IN I0C LIST 


ORG DKLST+2*IOCLEN+3 
DEFW PEEK 
sCODE ROUTINE 
ORG PSTART 
PEEK: LD L,4 sSLOT NUMBER 


CALL GPAR ;GET PARAMETER 1 
EX DE, HL 
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LD C, (BL) ;CONTENTS CF ADDRESS 
LD B,0 
LD L,3 sSLOT NUMBER FOR RESULT 
CALL DPAR ;DUMP RESULT 
RET 3BACK TO A GOL 
3 ean 
{GET INTEGER VALUE PARAMETER 
;ENTER WITH SLOT NUMBER IN L 
sEXIT WITH RESULT IN DE 
GPAR: CALL SLAD sADDRESS OF SLOT 
LD E, (HL) 
INC RL 
LD D, (HL) sCONTENTS IN DE 
RET 
ponnean---~ 
sDUMP INTEGER RESULT 
gL=SLOT NUMBER - : es 
3BC*RESULT . , 
DPAR: CALL SLAD 
LD (HL) ,C 
INC HL 
Lc (HL) ,B 
RET 
COMPUTE ADDRESS OF SLOT , “A. 
SLAD: LD H,0 
ADD HL,HL 
IxCc EL 
ADD HL, KL 3SLOT*#4+2 
LD DE, (PBASE) 
ADD ~—séaRL, DE sADDRESS OF SLOT+2 
RET ; 


4 
ENDPATCR: EXD 


This program after assembly would be combined with ARUN.COM using the 
CP/M utility DDT. 


LINKING TO RUNTIME ERROR HANDLIN 
Another possible application ts to link the user written code to 


the runtine error handling mechanism. The table hes a slightly different 
form this time. 


JFAIL Contains a jump to the fail routine. 
ERRORS Points to the error table. 
ERLST Name of error list. 


For exatple, suppose that an error condition exists if the negative [lag 
is set. A call of the following form would be zade 


ce 
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ERRSO: CALL M,JFATL ;ERROR IN coe 
The error list entries consist of the return address t-.e. #ERRSO+3 in 
this case. The fail routine compares each item in the list with the 


velue on the top of the stack, and che position of the match gives the 
“error number™. 


Other pointers of interest are. 


INP1 contains a JUMP to the input handler associated with 
stream number lL. 


OUTP1 contains a jump to the output device handler associated 
with stream number 1. 


These are used directly by the system bypassing the select stream 


+ mechanism in order to p.in. out titles and error information and for 
checking for operator responses. 


INTERRUPT HANDLING 


The RML Algol system itself does not use interrupt in any way. 
There is no reason however why users should not link in code routines 
which do use interrupt, provided care is taken to ensure that the 
contents of all registers and working variables are not corrupted. 
Algol variables may be modified directly if desired. The addresses cof 
simple variables can be passed to code routines using a call by name 
procedure parameter. The addresses of arrays (or variables) can be found 
using the procedure "location". Two foc calls have been added which 
allow for interrupt to be controlled while disk 1/0 is in progress. 
These are 


1oe(16) 


i ; This call will cause interrupt to be disabled before entering CP/M. 
‘ Interrupt will be enabled on return from CP/M. 


: toc (17) 


This call will restore the default situation. No action is taken with 
Yegard to interrupts. 


EXTRACT FROM ALGOL RUNTIME SYSTEM 


0001 *H (ARUN.2SM) 

0002 ;ALGOL INTERPRETER FOR 280 
0003 ;CGM/RHA OCT 78 

; 0004 ;CP/M VERSION 

pa 0005 ;19/2/79 DISK 25a 


0006 
0100 0007 ORG 1008 
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0008 RADO ‘+ sQCTAL DEFAULT RADIX - 
0100 C35B12 0009 JP START  ;PROGRAM START ADDRESS 
0103 €353B12 0019 Jp - RESTART ;PROGRAM RESTART ADDRESS 
0106 C3031B OOLL INIT: JP INITIALISE ;INITIALISATION SEQUENCE 
0109 C3D113 0012 WAIT: -JP - DONE 3WALTING CODE | 
O10C €34413 0013 JFAIL: JP FAIL gENTER FAIL ROUTINE 
QLOF C3DS1A = OO14 INPl: JP . READI ;STREAM | INPUT 
O112 C3DELA O015 OUTPL: JP ° PRNT1L  ;" " OUTPUT 
OLIS EF24 0016 PROGST: #PSTART ;START OF PROGRAM CODE 
| 0117 C316 0017 INLP: #INLIST sINPUT DEVICE LIST 
| 0119 E516 0018 OUTLP: #OUTLST OUTPUT DEVICE LIST a 
O11B C217 0019 IOCLST: #DKLST ;I0C LIST 
O11D 9D1L7 0020 ERRORS: #ERLST 3ERROR LIST 
OLIF CA18 0021 ENDLIST:#STOPLIST sLISTS MUST STOP HERE 
0121 0D20 0022 DEVTAB: #DYTAB sDEVICE MNEMONICS 
0123 0000 0023 ABAS: #0 gARRAY FRAME BASE 
0125 0000 0024 WSBAS: #0 3WGRKING STACK BASE 
0127 6701 0025 PBASE: #T9~2 *;PROCEDURE BASE POINTER jai 
0129 6701 0026 MBASE: #T9-2 3MAIN BASE POINTER Be ok 
012B C000 0027 FSPT: #0 ;FREE SPACE POINTER _ 
0573 ;INPUT DEVICES ae: yes 
16C8 CD 0574 INLIST: 13D ae ete® nt Heh ac 7 
16C9 EQL4 0575 "+ #DUMIN “4 gsDUMMY, RETURNS 7Z “ 
16CB DSLA 0576 #READL =" ° * «SKEYBOARD ~ 
16CD FOlA 0577 #TTYIN °° - 3; TELETYPE- 
16CF E014 0578 #DUMIN ;DUMMY => ons oe ae 
16D1 FALD 0579 ICPMKEY 3CON ee 
16D3 F81D 0580 #CPARDR sRDR see ae. 
16D5 E014 0581 #DUMIN ; DUMMY ar eed a ests 
16D7 B216 0582 #RECIN sRECORD INPUT Bete kp 
16D9 £014 0S33 #DUNIN OES es OE OT 
16DB E014 0584 #DUMIN ; 
L6DD 3118 0585 #C10I sARRAY BUFFER I/0° =~ 7°" 7” 
16DF EOL4 0586 #DUYIN - 
16E1 E014 0587 #DUXIN es s ta 
16£3 F413 0588 #ERNUMB ZLATEST ERROR NUMBER 
0589 ee 
0590 ;OUTPUT DEVICES . a ; , ° 
16E5 CD -Q591 OUTLST: 13D fe ee es ee ee 
1686 EFLA "0592 _ #NXULL sDUMMY BIT BIN 
16E8 DElA 0593 - #PRNTL “ * $§CREEN ; 
16EA C018 0594 #TTOUT ~ °° TELETYPE | 
16EC 0013 0595 #LPP. sLINE PRINTER i 
16EE F91D 0596 #CPVT 3VT 
16FO F71D 0597 #CPMPUN ; PUN 
16F2 ¥61D 0598 P #CPMLST ;LST 
16F4 6416 0599 #RECOUT _ gRECORD CUTPLT BUFFER 
16F6 EFLA 0600 #NULL 
16F8 EFIA 0501 NULL 
L6FA 3AL8 0602 #c1l00—C;, sARRAY BUFFER 1/0 
16FC EFLA 0603 NULL 
16FE EFLA 0604 ENULL 
1700 EFLA 0605 #NULL 
69 
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0607 ;10C CALLS 
1702 3¢ 0608 DKLST: 60D . ;LENCTH 
1703 7816 0609 #RESETY sRESET INPUT BUFFER POINTER 
1705 7F16 0610 #RESETO 3" ourpuT " *. 
1707 8816 0611 #CDECK sCALL I/0 COMMAND DECODER 
1709 9016 0612 #CDEC ; 7 "em BUrFER 
170B 9416 0613 #CINDK oe r) 
170D 9C16 0614 #CIND wn elle aad rem 
170F 4B12 0615 #DEFFC ;RWRITE DEFAULT 
1711 5012 0616 #NOFC 3; " NO FORMAT MODS 
1713 5412 0617 #NOERP ; " NO ERROR PRINT 
1715 3C12 eae aa ; “ PRINT LEADING SPACES 
; 
1717 3712 0620 #LEFTJ 3 " LEFT JUSTIFY PR 
1719 4612 0621 #SPLUS 3" SPACE FOR + stan 
1777 F61E 0672 #RENAME sRENAME PILE 
1779 731F 0673 #NEWEXT ;CHANGE FILE EXTENSION 
. 0674 360 
177B 5812 0675 RERUN RERUN PROG FROM START 
3 
177D 0677 DEFS 208 3FOR EXPANSION 
0678 ; 
0679 ;LIST OF CALLS TO °FAIL’ 
179D 2D 0680 ERLST: 45D 
179E $313 0681 #ERRO+3 
17A0 0C14 0682 #ERR1+3 
17A2 £007 0683 #ERR2+3 
17A4 0A08 0684 #ERRI+3 
17A6 F908 0685 #ERRG+3 
17F2 3516 0723 FERR42+3 
17F4 EOID 0724 #ERRS3+3 
17F6 621E 0725 #ERR44+43 
17F8 E515 0726 #ERR4S+3 
0727 ; om 
17FA 0728 DEFS 108 ROOM FOR MORE 
0729 STOPLIST: 3NO LISTS BEYOND : 
0730 ; 
70 
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all 
APPENDIX |! SUMMARY OF I0C CALLS 
foc (n) FUNCTION 
0-5 input/output selection 
"6 = 12 rwrite format control 
13 - 15 output file options 
16 = 17 interrupt option on disk 1/0 
18 = 19 tread options 
20 = 21 file extension options 
22 reboot CP/M on completion 
23 = 59 linked to procedures in ALIB.ALG 
60 rerun program from start 
61 ~ 62 RM 3802 graphics 


PRE-DECLARED PROCEDURES 


NAME SECTION 
Loc pre declared identifiers 5 
abs Standard functions 
arctan . : " 
cos " by 
entier . ea 

" 9 
ri La] tt 
8 4 gn " e 
sin " id 
sqrt * 7 
chin Input/Output 
chout . . 
read " sd 
rwrite @ " 
skip " " 
text ” Ly 
write " " 
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APPENDIX 1 


PROCEDURES IN "ALIB.ALG" 


(to be compiled with the user’s program if required). 


findinput 
findoutput 
rhlock 
whlock 
rewind 
“seti 
seto 
fpoine 
opoint 
exfle 
feblock 
swlist 
bios 
cpud 
renane 
newext 
error 
location 
f£space 
blmove 
peek 
poke 
ia 
out 
dpb 
ay rdisk 
wdisk 
parity 
shl 
ler 
asr 
roel 
rotr 
randor 
clarr 
_ 8loc 
slen 
snatch 
atext 
eme 
wait 
chpos 
point 
line 


Input/Output 
we iid 
we Li 
Ll ta] 
Li] La] 
Li 
we " 
we " 
Lo] La] 
we Ld 
Cd we 

. " ad 
Li] ] 
LJ a] 
te a] 
I i] 


Runtime errors 
Library procedures 
i Ld 


72 


APPENDIX 2 INPUT/OUTPUT STREAMS 


The following table defines the stream or device numbers associated with 
1/0 channels. These numbers point to an entry in the input/outsut device 
lists wiich contain the address of the appropriate device handler. 
Vacant slots are available for users to add their own routines. In the 
case of disk files the stream numbers are allocated dynamicaliy by the 
system (from 64 upwards). Figures in brackets indicate equivalent streaz 
numbers in the pure CP/M version. 


INPUT STREAMS 


STREAM NAME DEVICE 

Q H Dummy input - always returns an end of 
file character (CONTROL-Z). ; 

1 (4) TY: Single character keyboard input. 

2% (5) TTY: Teletype (S104). 

t 4 CON: CP/M Console. 
; 5 RDR: CP/M Reader. . 
7 TIB: Buffered keyboerd input. On the RML 


380Z, the line editing using che rubout 
key is done =ore elegantlr taan for the 
pure CP/M version. Used for I/O file 
comeand lines. 


10 — -Input from memory (see seti/seto library 
zi : procedures). 

11® (0) -- Input from VT screen (graphics mode). 

13 —_— Returns as the next byte the latest 


runtime error number. 


OUTPUT STREAMS 


STREAM = NAME DEVICE i 

it] NL: Dumay output - All output is thrown 

away. 
J L (6) VT: VT Screea. 

2% (5) TTZ: Telecype (S104). > 

3% (6) LPs Lineprinter (EMT 5). 

4 CON: CP/4 Console. 

5 PUN: CP/M punch. 

6 LST: CP/M List device. 

? = Output to I/0 file comand buffer. 

10 _ Output to memory (see seti/seto Library 
procedures). oo 

Lie (0) —-- Output to VT screen (graphics mode). 

* 1/0 only available on RIL 380Z. 


Disk drives recognised are A:, 2:, Cs, and Ds. 


Switch options recognised are: + 
3 Block I/O (random access). 
M Modify access (random access write). 


ie 
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APPENDIX 3 DIFFERENCES FROM THE ALGOL 60 REPORT 


RESTRICTIONS 


No OWN variables. 
No multiple essignuments. 
No integer labels. 


Variables must be declared before use. 


Call by NAME is restricted to the case where the actual parameter is a 


variable name, i.e. as per call by reference in Fortran or call by 
location in CORAL 66. 


Array perameters most be called by name. 
The “fat comma’ is not implemented. 


Clues are sometimes required to indicate the “type” in procedure 
parameters and conditional statements. ; 


Only the first six characters of identifier names are significant. 


EXTENSIONS 


Data type: BYTE ARRAY. 
Operatore: MOD, !, DIFFER, MASK. . 
Comments may be enclosed within matching braces e.g. {like this}. 


Procedure names may be the result of designational expressions. 


Additional functions include string handling, direct disk 1/0, block 
move, clear array, graphics, etc. See appendix 1 for the full list. 


eee eT Ao Ane vane meena Make Res 
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APPENDIX 4 PROGRAMS ON THE DISTRIBUTION DISK 


ALCOL.CCM and ASUN.COM 


The Algol compiler anc runtime systen. 


The standard Algol library routines. 


LLASE.AIG and LCASE.ASC 


This program will convert Algol source files writtea using 
ecnvention 1 (all upper case with key words enclosed in quctes) 
into convention 2 (upper/lower case). The program prompts fer 
input and output file names. The defaulce file extension is 
“ ALG". 


CCASE.ALG and UCASE.ASC 


This in the complerent to LCASE.A4LG juse described. Files are 
converted from convention 2 into convention |. 


SANIND.ALG and MHIND.ASC 


Mastermind. Game 1 allows 6 colours and no blanks. Game 2 allows 
6 colours and blanks. 


VDU.ALG and VDU.ASC 


This program is designed as an editing aid for creating "Algol 
source filles. The program prompts for an output file name, the 


~default extension is ".ALG". If che upper case convention with 


key words enclosed within quotes is required then give a (Tj 
switch option with the file specification. Now start typing in 
your program. The program detects language sey words. As soon 
as sufficient characters have been entered to uniquely define 
the key word the program will supply the rest. Corrections can 
be made to the current line being entered using the rubout key. 


Other special keys are. 


CONTROL-U Erase the current line. “ 

CONTROL-R Retype the current line after cleanup. 

CONTROL=X Switch off the auto keyword facility. A seconde 
call will switch it on again. This altows 
strings etc. to be entered without eatré 
characters being added. 

CONTROL<-Z End of program. Cloxe file and ratura to the 
start. P : 

CONTROL=-C In response to the prompt fer ai file 


Specification will return control to CP/M. 
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